Changeset 24586 for main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm

Timestamp:

2011-09-13T20:54:35+12:00 (13 years ago)

Author:

ak19

Message:

Dr Bainbridge fixed the unicode bug that Diego had found when using an hfile to specify the Hierarchy of a classifier. The hfile was so far being read as a regular cfg file read, but the read operation needed to read in UTF8 mode to preserve the encodings of characters in the file.

File:

• main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm (modified) (1 diff)

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

@@ -163 +163 @@
     my $subjectfile = $self->{'subjectfile'};
     if (defined $subjectfile) {
-    # read in the subject file
-    my $list = &cfgread::read_cfg_file ($self->{'subjectfile'}, undef, '^[^#]?\S');
+    # read in the subject file, but read in unicode mode to preserve special characters
+    my $list = &cfgread::read_cfg_file_unicode ($self->{'subjectfile'}, undef, '^[^#]?\S');
     # $list is a hash that is indexed by the descriptor. The contents of this
     # hash is a list of two items. The first item is the OID and the second item