Changeset 24404 for main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm

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/perllib/plugins/OAIPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/OAIPlugin.pm

@@ -90 +90 @@
     return bless $self, $class;
     }
-    # trim ex. from document field (if there)
-    $self->{'document_field'} =~ s/^ex\.//;
+    # trim any ex. from document field iff it's the only metadata namespace prefix    
+    $self->{'document_field'} =~ s/^ex\.([^.]+)$/$1/;
     return bless $self, $class;
 }
@@ -531 +531 @@
 
         # so that GLI can see this metadata, store here as ex.dc.Title etc
-        my $ex_metaname = "ex.$metaname";
+        my $ex_metaname = $metaname;
+        $ex_metaname =~ s/^ex\.//; # remove any pre-existing ex. prefix
+        $ex_metaname = "ex.$ex_metaname"; # at last can prefix ex.
 
         if (defined $metadata->{$ex_metaname})