Changeset 10465

Timestamp:

2005-08-10T15:38:34+12:00 (19 years ago)

Author:

chi

Message:

To add the convert_post_process() to handle some encoding problems for now.

File:

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

trunk/gsdl/perllib/plugins/ExcelPlug.pm

@@ -76 +76 @@
 }
 
+sub convert_post_process
+{
+    my $self = shift (@_);
+    my ($conv_filename) = @_;
+    
+    my $outhandle=$self->{'outhandle'};
+    
+    my ($language, $encoding) = $self->textcat_get_language_encoding ($conv_filename);
+    
+    # read in file ($text will be in utf8)
+    my $text = "";
+    $self->read_file ($conv_filename, $encoding, $language, \$text);
+    
+    # turn any high bytes that aren't valid utf-8 into utf-8.
+    #unicode::ensure_utf8(\$text);
+    
+    # Write it out again!
+    #$self->utf8_write_file (\$text, $conv_filename);
+}
+
 sub get_default_process_exp {
     my $self = shift (@_);