Changeset 12688 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm

Timestamp:

2006-09-06T14:24:13+12:00 (18 years ago)

Author:

kjdon

Message:

make sure the output filename to use in the conversion is in utf-8, otherwise non-utf-8 chars get added to doc.xml, and parsing craps out

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -268 +268 @@
     $tailname =~ s/\.+//g;
     $tailname =~ s/\-+//g;
+
+    # convert to utf-8 otherwise we have problems with the doc.xml file
+    # later on
+    &unicode::ensure_utf8(\$tailname);
+
     $suffix = lc($suffix);
     my $tmp_filename = &util::filename_cat($tmp_dirname, "$tailname$suffix");
@@ -342 +347 @@
     $output_filename =~ s/$suffix$/.$output_type/;
     }
+    
     return $output_filename;
 }