Changeset 24404 for main/trunk/greenstone2/bin/script/explode_metadata_database.pl

Timestamp:

2011-08-12T19:35:50+12:00 (13 years ago)

Author:

ak19

Message:

Changes to perl code to do with removing the ex. prefix: ex. is only removed if it is the sole prefix (i.e. ex.dc.* prefixes are not removed).

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
+        $field =~ s/^ex\.([^.]+)$/$1/; #remove any ex. iff it's the only metadata set prefix (will leave ex.dc.* intact)
         $value =~ s/\\\\/\\/g;
         my $document_file_full;
@@ -509 +509 @@
     next if ($field =~ /\^all$/);  # ISISPlug specific!
 
-    # strip off any ex.
-    $field =~ s/^ex\.//;
+    $field =~ s/^ex\.([^.]+)$/$1/; #remove any ex. iff it's the only metadata set prefix (will leave ex.dc.* intact)
 
     # Square brackets in metadata values need to be escaped so they don't confuse Greenstone/GLI