- Timestamp:
- 2011-08-12T19:35:50+12:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/explode_metadata_database.pl
r22317 r24404 411 411 foreach my $pair (@$record_metadata) { 412 412 my ($field, $value) = (@$pair); 413 $field =~ s/^ex\. //; # remove ex. if present413 $field =~ s/^ex\.([^.]+)$/$1/; #remove any ex. iff it's the only metadata set prefix (will leave ex.dc.* intact) 414 414 $value =~ s/\\\\/\\/g; 415 415 my $document_file_full; … … 509 509 next if ($field =~ /\^all$/); # ISISPlug specific! 510 510 511 # strip off any ex. 512 $field =~ s/^ex\.//; 511 $field =~ s/^ex\.([^.]+)$/$1/; #remove any ex. iff it's the only metadata set prefix (will leave ex.dc.* intact) 513 512 514 513 # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI
Note:
See TracChangeset
for help on using the changeset viewer.