Changeset 16580 for gsdl/trunk/perllib/plugins/CONTENTdmPlugin.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/CONTENTdmPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/CONTENTdmPlugin.pm

@@ -489 +489 @@
     $tailname =~ s/\.+//g;
     $tailname =~ s/\-+//g;
+
+    $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");