Changeset 22839 for main/trunk/greenstone2/perllib/plugouts/METSPlugout.pm
- Timestamp:
- 2010-09-02T14:13:42+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/METSPlugout.pm
r20643 r22839 95 95 } 96 96 97 binmode($outhandler,":utf8"); 98 97 99 $self->output_xml_header($outhandler); 98 100 my $section = $doc_obj->get_top_section(); … … 132 134 $outhandler = $self->get_output_handler($doc_mets_file); 133 135 } 134 135 136 137 binmode($outhandler,":utf8"); 138 136 139 $self->output_mets_xml_header($outhandler, $doc_obj->get_OID(), $doc_title); 137 140 $self->output_mets_section($outhandler, $doc_obj, $doc_obj->get_top_section(),$working_dir);
Note:
See TracChangeset
for help on using the changeset viewer.