Show
Ignore:
Timestamp:
27.05.2009 13:56:41 (11 years ago)
Author:
kjdon
Message:

use new util::tidy_up_oid instead of fiddling with it directly

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/doc.pm

    r19494 r19617  
    300300        if (defined $OID) { 
    301301            $OID = 'J'.&File::Basename::basename($OID); 
    302             $OID =~ s/\.//; #remove any periods 
     302            $OID = &util::tidy_up_oid($OID); 
    303303        } else { 
    304304            print STDERR "Failed to find base for filename ($filename)...generating hash id\n"; 
     
    314314        if (defined $identifier && $identifier ne "") { 
    315315        $OID = $identifier; 
    316         if ($OID =~ /\./) { 
    317             print STDERR "Warning, assigned identifier $identifier contains periods (.), removing them\n"; 
    318             $OID =~ s/\.//g; #remove any periods 
    319         } 
    320         if ($OID =~ /^[\d]*$/) { 
    321             print STDERR "Warning, assigned identifier $identifier contains only digits. Prepending 'D'.\n"; 
    322             $OID = "D" . $OID; 
    323         }        
     316        $OID = &util::tidy_up_oid($OID); 
    324317        } else { 
    325318        # need a hash id