Changeset 18338 for gsdl


Ignore:
Timestamp:
01/08/09 18:33:19 (12 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:
1 edited

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    }
Note: See TracChangeset for help on using the changeset viewer.