Changeset 16580 for gsdl/trunk/perllib/plugins/TextPlugin.pm

Timestamp:

2008-07-29T13:29:21+12:00 (16 years ago)

Author:

ak19

Message:

Shared subroutine tmp_area_convert_file now ensures that the tailname of the file is utf8 by calling superclass BasePlugin's filepath_to_utf8 on it.

File:

• gsdl/trunk/perllib/plugins/TextPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/TextPlugin.pm

@@ -170 +170 @@
     # convert to utf-8 otherwise we have problems with the doc.xml file
     # later on
-    &unicode::ensure_utf8(\$tailname); # TODO: does this change the filename or not?
-             # need to test this out on a windows computer using a Greek filename
+    $tailname = $self->SUPER::filepath_to_utf8($tailname) unless &unicode::check_is_utf8($tailname);
+
     $suffix = lc($suffix);
     my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix");