Changeset 10465
- Timestamp:
- 2005-08-10T15:38:34+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ExcelPlug.pm
r10424 r10465 76 76 } 77 77 78 sub convert_post_process 79 { 80 my $self = shift (@_); 81 my ($conv_filename) = @_; 82 83 my $outhandle=$self->{'outhandle'}; 84 85 my ($language, $encoding) = $self->textcat_get_language_encoding ($conv_filename); 86 87 # read in file ($text will be in utf8) 88 my $text = ""; 89 $self->read_file ($conv_filename, $encoding, $language, \$text); 90 91 # turn any high bytes that aren't valid utf-8 into utf-8. 92 #unicode::ensure_utf8(\$text); 93 94 # Write it out again! 95 #$self->utf8_write_file (\$text, $conv_filename); 96 } 97 78 98 sub get_default_process_exp { 79 99 my $self = shift (@_);
Note:
See TracChangeset
for help on using the changeset viewer.