Changeset 18338
- Timestamp:
- 2009-01-08T18:33:19+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/unicode.pm
r18319 r18338 580 580 sub url_encode { 581 581 my ($text) = @_; 582 582 583 if (!&is_url_encoded($text)) { 583 $text =~ s/ /_/g; # spaces replaced with underscore584 584 $text =~ s/([^A-Z0-9\ \.\-\_])/sprintf("%%%02X", ord($1))/iseg; 585 585 }
Note:
See TracChangeset
for help on using the changeset viewer.