Changeset 22317 for main/trunk/greenstone2/bin
- Timestamp:
- 2010-06-28T15:26:26+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/explode_metadata_database.pl
r20943 r22317 411 411 foreach my $pair (@$record_metadata) { 412 412 my ($field, $value) = (@$pair); 413 413 $field =~ s/^ex\.//; # remove ex. if present 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\.//; 513 511 514 # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI 512 515 $value =~ s/\[/&\#091;/g;
Note:
See TracChangeset
for help on using the changeset viewer.