Changeset 22317 for main/trunk/greenstone2/bin/script

Timestamp:

2010-06-28T15:26:26+12:00 (14 years ago)

Author:

kjdon

Message:

metadata extracted when exploding or when processing a file may have ex. in some cases. Need to remove this before writing to metadata.xml file

File:

• main/trunk/greenstone2/bin/script/explode_metadata_database.pl (modified) (2 diffs)

main/trunk/greenstone2/bin/script/explode_metadata_database.pl

@@ -411 +411 @@
     foreach my $pair (@$record_metadata) {
         my ($field, $value) = (@$pair);
-
+        $field =~ s/^ex\.//; # remove ex. if present
         $value =~ s/\\\\/\\/g;
         my $document_file_full;
@@ -509 +509 @@
     next if ($field =~ /\^all$/);  # ISISPlug specific!
 
+    # strip off any ex.
+    $field =~ s/^ex\.//;
+
     # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI
     $value =~ s/\[/&\#091;/g;