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/BaseClassifier.pm

    r23116 r24193  
    5656use printusage;
    5757use parse2;
     58use unicode;
    5859
    5960# suppress the annoying "subroutine redefined" warning that various
     
    278279   
    279280    delete $self->{"info_only"};
     281    # user-entered UTF-8 display meta for buttonname. Needs to be internally turned into unicode
     282    # (will later be turned back to UTF-8 along with the rest of the metadata)
     283    if ($self->{'buttonname'}) {
     284        $self->{'buttonname'} = &unicode::convert_utf8_string_to_unicode_string($self->{'buttonname'});
     285    }
    280286    return bless $self, $class;
    281287}
     
    369375}
    370376
     377
    371378# ex. can be at front, or it may be a list of metadata, separated by ,/;
    372379sub strip_ex_from_metadata {
Note: See TracChangeset for help on using the changeset viewer.