Changeset 28550

Show
Ignore:
Timestamp:
29.10.2013 13:34:04 (6 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

    r28212 r28550  
    546546        open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasePlugout::group_process could not write to file $doc_file\n" and return); 
    547547             
    548  
     548        binmode(GROUPPROCESS, ":utf8"); 
    549549        $self->{'gs_filename'} = $doc_file; 
    550550        $self->{'short_doc_file'} = $short_doc_file; 
     
    573573    my $section_text = &docprint::get_section_xml($doc_obj,$doc_obj->get_top_section()); 
    574574    print GROUPPROCESS $section_text; 
    575  
     575  
    576576    $self->{'gs_count'}++; 
    577577}