Changeset 20451

Timestamp:

2009-08-31T15:12:57+12:00 (15 years ago)

Author:

kjdon

Message:

metadata args may have ex. now. Trim ex. from values

Location:

gsdl/trunk/perllib/plugins

Files:

• BasePlugin.pm (modified) (1 diff)
• OAIPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -197 +197 @@
     $self->{'plugin_type'} = $plugin_name;
 
+    # remove ex. from OIDmetadata
+    $self->{'OIDmetadata'} =~ s/^ex\.//;
     $self->{'num_processed'} = 0;
     $self->{'num_not_processed'} = 0;

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -86 +86 @@
     my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists);
 
+    # trim ex. from document field (if there)
+    $self->{'document_field'} =~ s/^ex\.//;
     return bless $self, $class;
 }