Changeset 16673

Show
Ignore:
Timestamp:
07.08.2008 13:54:35 (11 years ago)
Author:
ak19
Message:

Removed comment. URL encode and URL decode subroutines added.

Files:
1 modified

Legend:

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

    r16672 r16673  
    579579    my ($text) = @_; 
    580580    $text =~ s/([^A-Z0-9\.\-\_])/sprintf("%%%02X", ord($1))/iseg; 
    581     # URL_encode spaces too? 
    582     #$text =~ s/ /%20/sg; 
     581 
    583582    return $text; 
    584583}