Ignore:
Timestamp:
2008-08-28T10:05:36+12:00 (16 years ago)
Author:
kjdon
Message:

fixed up some bugs in add_OID

File:
1 edited

Legend:

Unmodified
Added
Removed

  • gsdl/trunk/perllib/plugins/SplitTextFile.pm

    r17026 r17033  
    303303    if (defined $identifier && $identifier ne "") {
    304304        $full_id = $identifier;
    305         $full_id =~ s/\.//; #remove any periods
     305        $full_id =~ s/\.//g; #remove any periods
    306306        if ($full_id =~ /^[\d]*$/) {
    307307        $full_id = "D" . $full_id;
Note: See TracChangeset for help on using the changeset viewer.