Changeset 18201

Show
Ignore:
Timestamp:
15.12.2008 14:10:06 (11 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/unicode.pm

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