Changeset 17033 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
- Timestamp:
- 2008-08-28T10:05:36+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
r17026 r17033 411 411 my $identifier = $doc_obj->get_metadata_element ($doc_obj->get_top_section(), $self->{'OIDmetadata'}); 412 412 if (defined $identifier && $identifier ne "") { 413 $ OID= $identifier;414 $ OID =~ s/\.//; #remove any periods415 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; 417 417 print STDERR "OID only contains numbers, adding a D\n"; 418 418 } 419 $full_id = $identifier;420 419 } 421 420 }
Note:
See TracChangeset
for help on using the changeset viewer.