Changeset 17033

Timestamp:

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

Author:

kjdon

Message:

fixed up some bugs in add_OID

Location:

gsdl/trunk/perllib/plugins

Files:

• MARCXMLPlugin.pm (modified) (1 diff)
• SplitTextFile.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;
     }
     }

gsdl/trunk/perllib/plugins/SplitTextFile.pm

@@ -303 +303 @@
     if (defined $identifier && $identifier ne "") {
         $full_id = $identifier;
-        $full_id =~ s/\.//; #remove any periods
+        $full_id =~ s/\.//g; #remove any periods
         if ($full_id =~ /^[\d]*$/) {
         $full_id = "D" . $full_id;