Changeset 18561

Show
Ignore:
Timestamp:
20.02.2009 14:44:17 (11 years ago)
Author:
kjdon
Message:

removed a chunk of duplicate code which unfortunately cannot be blamed on anyone other than me

Files:
1 modified

Legend:

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

    r18528 r18561  
    318318            $OID =~ s/\.//g; #remove any periods 
    319319        } 
    320         if ($OID =~ /^\d*$/) { 
     320        if ($OID =~ /^[\d]*$/) { 
    321321            print STDERR "Warning, assigned identifier $identifier contains only digits. Prepending 'D'.\n"; 
    322322            $OID = "D" . $OID; 
    323         } 
    324         if ($OID =~ /^[\d]*$/) { 
    325             $OID = "D" . $OID; 
    326             print STDERR "OID only contains numbers, adding a D\n"; 
    327         } 
    328          
     323        }        
    329324        } else { 
    330325        # need a hash id