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

Timestamp:

2009-01-07T17:59:22+13:00 (15 years ago)

Author:

ak19

Message:

Extra parameter to new doc(): the renaming method to be used on the file (base64 or URL encoding).

File:

• gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -195 +195 @@
         my $encoding = $self->{'encoding'};
     my $file = $self->{'file'};
-    my $doc_obj = new doc($filename);
+    my $doc_obj = new doc($filename, undef, $self->{'file_rename_method'});
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language);
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);