Ignore:
Timestamp:
06/22/11 18:31:37 (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/List.pm

    r24147 r24193  
    680680
    681681
    682 sub convert_utf8_string_to_unicode_string
    683 {
    684     my $self = shift(@_);
    685     my $utf8_string = shift(@_);
    686 
    687     my $unicode_string = "";
    688     foreach my $unicode_value (@{&unicode::utf82unicode($utf8_string)}) {
    689     $unicode_string .= chr($unicode_value);
    690     }
    691     return $unicode_string;
    692 }
    693 
    694 
    695 sub convert_unicode_string_to_utf8_string
    696 {
    697     my $self = shift(@_);
    698     my $unicode_string = shift(@_);
    699 
    700     my @unicode_array;
    701     for (my $i = 0; $i < length($unicode_string); $i++) {
    702     push(@unicode_array, ord(substr($unicode_string, $i, 1)));
    703     }
    704     return &unicode::unicode2utf8(\@unicode_array);
    705 }
    706 
    707 
    708682sub generate_partition_start
    709683{
Note: See TracChangeset for help on using the changeset viewer.