Changeset 18338 for gsdl/trunk/perllib/unicode.pm

Timestamp:

2009-01-08T18:33:19+13:00 (15 years ago)

Author:

ak19

Message:

Moved the line of code that replaced spaces with underscores to the subroutine util::rename_file, since this replacement ought to be done not only when url_encoding but also when using base64 encoding.

File:

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

gsdl/trunk/perllib/unicode.pm

@@ -580 +580 @@
 sub url_encode {
     my ($text) = @_;
+    
     if (!&is_url_encoded($text)) {
-    $text =~ s/ /_/g;             # spaces replaced with underscore
     $text =~ s/([^A-Z0-9\ \.\-\_])/sprintf("%%%02X", ord($1))/iseg;
     }