Changeset 20609

Timestamp:

2009-09-16T14:05:23+12:00 (15 years ago)

Author:

kjdon

Message:

added process_exp arg explicitly to this plugin. Otherwise, due to the way the args are ordered, inheriting from both ReadTextFile and ReadXMLFile, GLI thinks its process exp is empty not matching .xml. And then it won't be suggested as a plugin when you add in a marcxml file

File:

• gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -45 +45 @@
           'type' => "string",
           'deft' => "marc2dc.txt",
-          'reqd' => "no" }];
+          'reqd' => "no" },
+         { 'name' => "process_exp",
+           'desc' => "{BasePlugin.process_exp}",
+           'type' => "regexp",
+           'deft' => &get_default_process_exp(),
+           'reqd' => "no" }];
 
 my $options = { 'name'     => "MARCXMLPlugin",
@@ -53 +58 @@
         'args'     => $arguments 
         };
+
 
 sub new {
@@ -99 +105 @@
 
 
+sub get_default_process_exp {
+    my $self = shift (@_);
+
+    return q^(?i)\.xml$^;
+}
 
 sub get_doctype {