- Timestamp:
- 2008-11-06T13:11:55+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/PowerPointPlugin.pm
r17722 r17735 29 29 30 30 use ConvertBinaryFile; 31 use ReadTextFile; # for read_file in convert_post_process. do we need it?32 31 33 32 use strict; … … 35 34 36 35 sub BEGIN { 37 @PowerPointPlugin::ISA = ('ConvertBinaryFile' , 'ReadTextFile');36 @PowerPointPlugin::ISA = ('ConvertBinaryFile'); 38 37 } 39 38 … … 114 113 my $html_options = $secondary_plugin_options->{'HTMLPlugin'}; 115 114 my $pageimg_options = $secondary_plugin_options->{'PagedImagePlugin'}; 116 117 # if ($self->{'input_encoding'} eq "auto") {118 # $self->{'input_encoding'} = "utf8";119 # }120 115 121 116 if (defined $secondary_plugin_options->{'HTMLPlugin'}){ … … 143 138 } 144 139 145 # do we need this? above states that ppthtml produces utf8 text...146 sub convert_post_process147 {148 my $self = shift (@_);149 my ($conv_filename) = @_;150 151 my $outhandle=$self->{'outhandle'};152 my ($language, $encoding) = $self->textcat_get_language_encoding ($conv_filename);153 # read in file ($text will be in utf8)154 my $text = "";155 $self->read_file ($conv_filename, $encoding, $language, \$text);156 157 # turn any high bytes that aren't valid utf-8 into utf-8.158 unicode::ensure_utf8(\$text);159 # Write it out again!160 $self->utf8_write_file (\$text, $conv_filename);161 }162 163 164 140 1; 165 141
Note:
See TracChangeset
for help on using the changeset viewer.