Changeset 16673 for gsdl/trunk/perllib/unicode.pm
- Timestamp:
- 2008-08-07T13:54:35+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/unicode.pm
r16672 r16673 579 579 my ($text) = @_; 580 580 $text =~ s/([^A-Z0-9\.\-\_])/sprintf("%%%02X", ord($1))/iseg; 581 # URL_encode spaces too? 582 #$text =~ s/ /%20/sg; 581 583 582 return $text; 584 583 }
Note:
See TracChangeset
for help on using the changeset viewer.