Changeset 17033 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

Timestamp:

2008-08-28T10:05:36+12:00 (16 years ago)

Author:

kjdon

Message:

fixed up some bugs in add_OID

File:

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

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -411 +411 @@
     my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'});
     if (defined $identifier && $identifier ne "") {
-        $OID = $identifier;
-        $OID =~ s/\.//; #remove any periods
-        if ($OID =~ /^[\d]*$/) {
-        $OID = "D" . $OID;
+        $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 = $identifier;
     }
     }