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

Timestamp:

2008-08-11T13:44:51+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) (2 diffs)

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -81 +81 @@
     $self->{'indent'} = 0;
 
+    print STDERR "metadata mapping file = $self->{'metadata_mapping_file'}\n";
     return bless $self, $class;
 }
+
+
 
 sub get_doctype {
@@ -122 +125 @@
 
 
-    ##map { print STDERR $_."=>".$metadata_mapping->{$_}."\n"; } keys %$metadata_mapping;
+    map { print STDERR $_."=>".$self->{'metadata_mapping'}->{$_}."\n"; } keys %{$self->{'metadata_mapping'}};
 
     $self->SUPER::init(@_);