Changeset 28550


Ignore:
Timestamp:
10/29/13 13:34:04 (7 years ago)
Author:
kjdon
Message:

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

File:
1 edited

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}
Note: See TracChangeset for help on using the changeset viewer.