Changeset 18561


Ignore:
Timestamp:
2009-02-20T14:44:17+13:00 (12 years ago)
Author:
kjdon
Message:

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

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.