Changeset 24745 for main/trunk/greenstone2
- Timestamp:
- 2011-10-10T15:01:45+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/BaseClassifier.pm
r24737 r24745 56 56 use printusage; 57 57 use parse2; 58 use unicode;59 58 60 59 # suppress the annoying "subroutine redefined" warning that various … … 280 279 delete $self->{"info_only"}; 281 280 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 # } 281 # We now ensure that when text files (and even colcfg) are read in, 282 # they are straightaway made to be Unicode aware strings in Perl 283 290 284 return bless $self, $class; 291 285 }
Note:
See TracChangeset
for help on using the changeset viewer.