Changeset 24737

Show
Ignore:
Timestamp:
07.10.2011 17:29:01 (8 years ago)
Author:
ak19
Message:

Further adjustment of code, reflecting the fact that text strings read in from files are Unicode aware straight away

Files:
1 modified

Legend:

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

    r24404 r24737  
    279279     
    280280    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     } 
     281 
     282# The following is no longer needed as we now ensure that when text files are 
     283# read in, there are straightaway made to be Unicode aware strings in Perl 
     284     
     285#   # user-entered UTF-8 display meta for buttonname. Needs to be internally turned into unicode 
     286#   # (will later be turned back to UTF-8 along with the rest of the metadata) 
     287#   if ($self->{'buttonname'}) { 
     288#       $self->{'buttonname'} = &unicode::convert_utf8_string_to_unicode_string($self->{'buttonname'}); 
     289#   } 
    286290    return bless $self, $class; 
    287291}