Changeset 7571 for trunk/gsdl/perllib

Timestamp:

2004-06-09T11:29:08+12:00 (20 years ago)

Author:

kjdon

Message:

origianl filename is now used for gsdlsourcefilename, and converted filenmae is set as gsdlconvertedfilename

File:

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

trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

@@ -364 +364 @@
 
     # create a new document
-    my $doc_obj = new doc ($conv_filename, "indexed_doc");
+    #my $doc_obj = new doc ($conv_filename, "indexed_doc");
+    # the original filename is used now
+    my $doc_obj = new doc ($filename, "indexed_doc");
+    # the converted filename is set separately
+    $doc_obj->set_converted_filename($conv_filename);
+
     my $topsection = $doc_obj->get_top_section();
     my $cursection = $topsection;