Changeset 31446 for main/trunk
- Timestamp:
- 2017-02-27T14:39:50+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm
r31440 r31446 1280 1280 1281 1281 my $unicode_dirname =""; 1282 #my $content_encoding = $self->{'content_encoding'}; 1283 #my $language = $self->{'language'}; 1284 1285 # actually I think this is wrong. why should we use content encoding? 1286 #$self->decode_text($dirname, $content_encoding, $language, \$unicode_dirname); 1287 #my $filename_encoding = $self->{'filename_encoding'}; 1288 # filename_encoding might be auto... 1289 1290 # TODO what is the best thing to do here????? 1291 # try and guess default filesystem encoding, similar to deduce_filename_encoding, but without a file? 1292 my $filename_encoding = "utf8"; 1282 # we need to turn raw filesystem filename into perl unicode aware string 1283 my $filename_encoding = $self->guess_filesystem_encoding(); 1284 1293 1285 # copied this from set_Source_metadata in BasePlugin 1294 1286 if ((defined $filename_encoding) && ($filename_encoding ne "ascii")) { … … 1300 1292 $unicode_dirname = &unicode::raw_filename_to_url_encoded($dirname); 1301 1293 } 1302 1294 1303 1295 $before_hash = &FileUtils::filenameConcatenate($unicode_dirname, $before_hash); 1304 1296 $before_hash = $self->eval_dir_dots($before_hash);
Note:
See TracChangeset
for help on using the changeset viewer.