Changeset 18561

Timestamp:

2009-02-20T14:44:17+13:00 (15 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/doc.pm (modified) (1 diff)

gsdl/trunk/perllib/doc.pm

@@ -318 +318 @@
             $OID =~ s/\.//g; #remove any periods
         }
-        if ($OID =~ /^\d*$/) {
+        if ($OID =~ /^[\d]*$/) {
             print STDERR "Warning, assigned identifier $identifier contains only digits. Prepending 'D'.\n";
             $OID = "D" . $OID;
-        }
-        if ($OID =~ /^[\d]*$/) {
-            $OID = "D" . $OID;
-            print STDERR "OID only contains numbers, adding a D\n";
-        }
-        
+        }       
         } else {
         # need a hash id