Changeset 17126 for gsdl/trunk/perllib

Timestamp:

2008-09-04T09:49:20+12:00 (16 years ago)

Author:

kjdon

Message:

inherit and use args form ReadTextFile cos we want the file encoding stuff

File:

• gsdl/trunk/perllib/plugins/OAIPlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -46 +46 @@
     'type' => "regexp",
     'reqd' => "no",
-    'deft' => &get_default_process_exp() },
-      { 'name' => "input_encoding", # needed by subroutine textcat_get_language_encoding
-    'desc' => "{ReadTextFile.input_encoding}",
-    'type' => "enum",
-    'list' => $ReadTextFile::encoding_plus_auto_list,
-    'reqd' => "no" ,
-    'deft' => "auto" }
+    'deft' => &get_default_process_exp() }
       ];
 
@@ -71 +65 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
+    new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists,1);
     my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists);