Changeset 24404 for main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm
- Timestamp:
- 2011-08-12T19:35:50+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm
r24403 r24404 90 90 return bless $self, $class; 91 91 } 92 # trim ex. from document field (if there)93 $self->{'document_field'} =~ s/^ex\. //;92 # trim any ex. from document field iff it's the only metadata namespace prefix 93 $self->{'document_field'} =~ s/^ex\.([^.]+)$/$1/; 94 94 return bless $self, $class; 95 95 } … … 531 531 532 532 # so that GLI can see this metadata, store here as ex.dc.Title etc 533 my $ex_metaname = "ex.$metaname"; 533 my $ex_metaname = $metaname; 534 $ex_metaname =~ s/^ex\.//; # remove any pre-existing ex. prefix 535 $ex_metaname = "ex.$ex_metaname"; # at last can prefix ex. 534 536 535 537 if (defined $metadata->{$ex_metaname})
Note:
See TracChangeset
for help on using the changeset viewer.