Changeset 18401 for gsdl/trunk/perllib

Timestamp:

2009-01-16T12:10:17+13:00 (15 years ago)

Author:

ak19

Message:

Needed to pass the current file_rename_method to subroutine filename_to_url.

File:

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

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -1149 +1149 @@
     # of filenames, URL-encode the additional percent signs of the URL-encoded filename
     my $newname_url = $newname;
-    $newname_url = &unicode::filename_to_url($newname_url); #$newname_url =~ s/%/%25/g if $newname_url !~ m/%25/;
+    $newname_url = &unicode::filename_to_url($newname_url, $self->{'file_rename_method'});
     return "_httpdocimg_/$newname_url"; 
     }