Changeset 16693 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

Timestamp:

2008-08-11T11:01:37+12:00 (16 years ago)

Author:

kjdon

Message:

MARCXMLPlugin uses textcat_language_and_encoding method from ReadTextFile so made it inherit from this as well.

File:

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

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -31 +31 @@
 
 use ReadXMLFile;
+use ReadTextFile;
 use marcmapping;
 
@@ -37 +38 @@
 
 sub BEGIN {
-    @MARCXMLPlugin::ISA = ('ReadXMLFile');
+    @MARCXMLPlugin::ISA = ('ReadXMLFile', 'ReadTextFile');
 }
 
@@ -61 +62 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
     
+    # we want to be able to use the textcat methods from ReadTextFile
+    # to get the language and encoding
+    new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists, 1);
+
     my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists);