Changeset 31113 for main

Timestamp:

2016-11-16T17:32:40+13:00 (7 years ago)

Author:

ak19

Message:

Text item files now handle UTF-8 properly by reading in the file correctly.

File:

• main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

@@ -701 +701 @@
     $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", $self->{'documenttype'});
     }
-    open (ITEMFILE, $filename_full_path) || die "couldn't open $filename_full_path\n";
+    open (ITEMFILE, "<:encoding(UTF-8)", $filename_full_path) || die "couldn't open $filename_full_path\n";
     my $line = "";
     my $num = 0;
     while (defined ($line = <ITEMFILE>)) {
-    
-    # Since process_item is called not on an XML item file, but a text item file
-    # don't decode into UTF8 the text that was read in, since it's already UTF-8    
-    #$line = decode("utf-8",$line);
     
     next unless $line =~ /\w/;