Changeset 17033

Show
Ignore:
Timestamp:
28.08.2008 10:05:36 (11 years ago)
Author:
kjdon
Message:

fixed up some bugs in add_OID

Location:
gsdl/trunk/perllib/plugins
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

    r17026 r17033  
    411411    my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'}); 
    412412    if (defined $identifier && $identifier ne "") { 
    413         $OID = $identifier; 
    414         $OID =~ s/\.//; #remove any periods 
    415         if ($OID =~ /^[\d]*$/) { 
    416         $OID = "D" . $OID; 
     413        $full_id = $identifier; 
     414        $full_id =~ s/\.//g; #remove any periods 
     415        if ($full_id =~ /^[\d]*$/) { 
     416        $full_id = "D" . $full_id; 
    417417        print STDERR "OID only contains numbers, adding a D\n"; 
    418418        } 
    419         $full_id = $identifier; 
    420419    } 
    421420    } 
  • 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;