Changeset 2799 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm
- Timestamp:
- 2001-10-12T12:45:17+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r2796 r2799 258 258 # Do encoding stuff 259 259 my ($language, $encoding); 260 261 # WordPlug's wvWare will always produce html files encoded as utf-8 262 if ($plugin_name eq "WordPlug") { 263 $self->{'input_encoding'} = "utf8"; 264 $self->{'extract_language'} = 1; 265 } 266 260 267 if ($self->{'input_encoding'} eq "auto") { 261 268 # use textcat to automatically work out the input encoding and language … … 264 271 # use textcat to get language metadata 265 272 266 my ($language, $extracted_encoding) = $self->get_language_encoding ($conv_filename); 273 my ($extracted_encoding); 274 ($language, $extracted_encoding) = $self->get_language_encoding ($conv_filename); 267 275 $encoding = $self->{'input_encoding'}; 268 276 if ($extracted_encoding ne $encoding && $self->{'verbosity'}) {
Note:
See TracChangeset
for help on using the changeset viewer.