Changeset 23750
- Timestamp:
- 2011-03-02T15:51:18+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/unicode.pm
r23514 r23750 639 639 } 640 640 641 sub url_decode_utf8 { 642 my ($text,$and_numeric_entities) = @_; 643 644 $text =~ s/\%([0-9A-F]{2})/pack('b', hex($1))/ige; 645 646 $text = Encode::decode("utf8",$text); 647 648 return $text; 649 } 650 641 651 sub is_url_encoded { 642 652 my ($text) = @_;
Note:
See TracChangeset
for help on using the changeset viewer.