Changeset 19617 for gsdl/trunk/perllib/plugins/SplitTextFile.pm

Timestamp:

2009-05-27T13:56:41+12:00 (15 years ago)

Author:

kjdon

Message:

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

File:

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

gsdl/trunk/perllib/plugins/SplitTextFile.pm

@@ -306 +306 @@
     if (defined $identifier && $identifier ne "") {
         $full_id = $identifier;
-        $full_id =~ s/\.//g; #remove any periods
-        if ($full_id =~ /^[\d]*$/) {
-        $full_id = "D" . $full_id;
-        print STDERR "OID only contains numbers, adding a D\n";
-        }
+        $full_id = &util::tidy_up_oid($full_id);
     }
     }