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/plugins/SplitTextFile.pm

    r19493 r19617  
    306306    if (defined $identifier && $identifier ne "") { 
    307307        $full_id = $identifier; 
    308         $full_id =~ s/\.//g; #remove any periods 
    309         if ($full_id =~ /^[\d]*$/) { 
    310         $full_id = "D" . $full_id; 
    311         print STDERR "OID only contains numbers, adding a D\n"; 
    312         } 
     308        $full_id = &util::tidy_up_oid($full_id); 
    313309    } 
    314310    }