Changeset 24404 for main/trunk/greenstone2/perllib/plugins/BasePlugin.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/BasePlugin.pm (modified) (1 diff)

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

@@ -204 +204 @@
     $self->{'plugin_type'} = $plugin_name;
 
-    # remove ex. from OIDmetadata
-    $self->{'OIDmetadata'} =~ s/^ex\.// if defined $self->{'OIDmetadata'};
+    # remove ex. from OIDmetadata iff it's the only namespace prefix
+    $self->{'OIDmetadata'} =~ s/^ex\.([^.]+)$/$1/ if defined $self->{'OIDmetadata'};
     $self->{'num_processed'} = 0;
     $self->{'num_not_processed'} = 0;