Changeset 16580
- Timestamp:
- 2008-07-29T13:29:21+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/CONTENTdmPlugin.pm
r16392 r16580 489 489 $tailname =~ s/\.+//g; 490 490 $tailname =~ s/\-+//g; 491 492 $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname); 491 493 $suffix = lc($suffix); 492 494 my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix"); -
gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm
r16392 r16580 278 278 # convert to utf-8 otherwise we have problems with the doc.xml file 279 279 # later on 280 &unicode::ensure_utf8(\$tailname); 280 print STDERR "**** filename $tailname$suffix is already UTF8\n" if &unicode::check_is_utf8($tailname); 281 $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname); 281 282 282 283 $suffix = lc($suffix); … … 375 376 my $conv_filename = ""; 376 377 $conv_filename = $self->tmp_area_convert_file($output_ext, $filename_full_path); 377 378 378 379 if ("$conv_filename" eq "") {return -1;} # had an error, will be passed down pipeline 379 380 if (! -e "$conv_filename") {return -1;} -
gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm
r16392 r16580 104 104 # Remove any white space from filename -- no risk of name collision, and 105 105 # makes later conversion by utils simpler. Leave spaces in path... 106 $tailname =~ s/\s+//g; 106 $tailname =~ s/\s+//g; 107 $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname); 107 108 108 109 my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix"); -
gsdl/trunk/perllib/plugins/TextPlugin.pm
r16301 r16580 170 170 # convert to utf-8 otherwise we have problems with the doc.xml file 171 171 # later on 172 &unicode::ensure_utf8(\$tailname); # TODO: does this change the filename or not?173 # need to test this out on a windows computer using a Greek filename 172 $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname); 173 174 174 $suffix = lc($suffix); 175 175 my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix");
Note:
See TracChangeset
for help on using the changeset viewer.