Changeset 23750 for main

Timestamp:

2011-03-02T15:51:18+13:00 (13 years ago)

Author:

davidb

Message:

Extra routine added for decoding URLs in %XX format that express UTF8 character encodings. Returns unicode-aware string

File:

• main/trunk/greenstone2/perllib/unicode.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/unicode.pm

@@ -639 +639 @@
 }
 
+sub url_decode_utf8 {
+    my ($text,$and_numeric_entities) = @_;
+
+    $text =~ s/\%([0-9A-F]{2})/pack('b', hex($1))/ige;
+
+    $text = Encode::decode("utf8",$text);
+
+    return $text;
+}
+
 sub is_url_encoded {
     my ($text) = @_;