Changeset 7556 for trunk/gsdl/perllib

Timestamp:

2004-06-03T17:27:49+12:00 (20 years ago)

Author:

kjdon

Message:

set the original filename as gsdlsourcefilename so that GLI can assign the extracted metadata correctly

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -300 +300 @@
 
     # create a new document
-    my $doc_obj = new doc ($conv_filename, "indexed_doc");
+    #my $doc_obj = new doc ($conv_filename, "indexed_doc");
+    # now we use the original filename here
+    my $doc_obj = new doc($filename, "indexed_doc");
     $doc_obj->set_OIDtype ($processor->{'OIDtype'});
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language);