Changeset 18338

Show
Ignore:
Timestamp:
08.01.2009 18:33:19 (10 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.

Files:
1 modified

Legend:

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

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