Changeset 1974

Timestamp:

2001-02-15T04:54:56+13:00 (23 years ago)

Author:

cs025

Message:

Fixed omission of encoding from parameters in read_file

File:

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

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -203 +203 @@
 sub read_file {
     my $self = shift (@_);
-    my ($src_filename, $textref) = @_;
+    my ($src_filename, $encoding, $textref) = @_;
 
     my $output_ext = $self->{'convert_to_ext'};
@@ -210 +210 @@
     $self->{'conv_filename'} = $conv_filename;
 
-    BasPlug::read_file($self,$conv_filename,$textref);
+    BasPlug::read_file($self,$conv_filename, $encoding, $textref);
 }
 
@@ -262 +262 @@
     $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_"); 
     $doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>"); 
-
     return $ret_val;
 }