Changeset 24193 for main/trunk/greenstone2/perllib/unicode.pm

Timestamp:

2011-06-22T18:31:37+12:00 (13 years ago)

Author:

ak19

Message:

Non-English characters in the user-entered buttonname of all classifiers need to be preserved. BaseClassifier now does this, for which it has to assume that the user-entered buttonname is in UTF-8

File:

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

main/trunk/greenstone2/perllib/unicode.pm

@@ -848 +848 @@
 
 
+sub convert_utf8_string_to_unicode_string
+{
+    my $utf8_string = shift(@_);
+
+    my $unicode_string = "";
+    foreach my $unicode_value (@{&unicode::utf82unicode($utf8_string)}) {
+    $unicode_string .= chr($unicode_value);
+    }
+    return $unicode_string;
+}
+
+sub convert_unicode_string_to_utf8_string
+{
+    my $unicode_string = shift(@_);
+
+    my @unicode_array;
+    for (my $i = 0; $i < length($unicode_string); $i++) {
+    push(@unicode_array, ord(&substr($unicode_string, $i, 1)));
+    }
+    return &unicode::unicode2utf8(\@unicode_array);
+}
+
+
 1;