Changeset 18201

Timestamp:

2008-12-15T14:10:06+13:00 (15 years ago)

Author:

ak19

Message:

When associated files are renamed with the URLencoded versions of their original filenames, the spaces are no longer URL encoded, as this conflicted with mp3, wmv and possibly other media file formats being opened in external or browser-embedded apps

File:

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

gsdl/trunk/perllib/unicode.pm

@@ -579 +579 @@
     my ($text) = @_;
     if (!&is_url_encoded($text)) {
-    $text =~ s/([^A-Z0-9\.\-\_])/sprintf("%%%02X", ord($1))/iseg;
+    $text =~ s/([^A-Z0-9\ \.\-\_])/sprintf("%%%02X", ord($1))/iseg;
     }
     return $text;