Changeset 24193 for main/trunk/greenstone2/perllib/classify/List.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/classify/List.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/List.pm

@@ -680 +680 @@
 
 
-sub convert_utf8_string_to_unicode_string
-{
-    my $self = shift(@_);
-    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 $self = shift(@_);
-    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);
-}
-
-
 sub generate_partition_start
 {