Changeset 22839

Timestamp:

2010-09-02T14:13:42+12:00 (14 years ago)

Author:

davidb

Message:

More explicit use of utf8 for input and output file handling. Relies on strings in Perl being Unicode aware (and not merely binary bytes) otherwise binary bytes will then be incorrectly re-incoded as UTF-8 (which is not what you want as they already are in UTF-8 form).

Location:

main/trunk/greenstone2/perllib/plugouts

Files:

• GreenstoneXMLPlugout.pm (modified) (1 diff)
• METSPlugout.pm (modified) (2 diffs)

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

@@ -92 +92 @@
     }
     
+    binmode($outhandler,":utf8");
+
     $self->output_xml_header($outhandler,"Archive");
     my $section_output = &docprint::get_section_xml($doc_obj, $doc_obj->get_top_section());

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

@@ -95 +95 @@
     } 
 
+    binmode($outhandler,":utf8");
+
     $self->output_xml_header($outhandler);
     my $section = $doc_obj->get_top_section();
@@ -132 +134 @@
        $outhandler = $self->get_output_handler($doc_mets_file);
      }   
- 
-      
+       
+    binmode($outhandler,":utf8");
+
     $self->output_mets_xml_header($outhandler, $doc_obj->get_OID(), $doc_title);
     $self->output_mets_section($outhandler, $doc_obj, $doc_obj->get_top_section(),$working_dir);