Changeset 28550

Timestamp:

2013-10-29T13:34:04+13:00 (10 years ago)

Author:

kjdon

Message:

output in utf8. text is now proper unicode internally. Copied this line from the GreenstoneXMLplugout saveas method.

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -546 +546 @@
         open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasePlugout::group_process could not write to file $doc_file\n" and return);
             
-
+        binmode(GROUPPROCESS, ":utf8");
         $self->{'gs_filename'} = $doc_file;
         $self->{'short_doc_file'} = $short_doc_file;
@@ -573 +573 @@
     my $section_text = &docprint::get_section_xml($doc_obj,$doc_obj->get_top_section());
     print GROUPPROCESS $section_text;
-
+ 
     $self->{'gs_count'}++;
 }