- if ( $marcflavour eq 'UNIMARC' && $record_type eq 'auths' )
- {
- print $record->as_xml_record('UNIMARCAUTH');
- }
- else {
- print $record->as_xml_record($marcflavour);
+ unless ($xml_header_written) {
+ MARC::File::XML->default_record_format(
+ (
+ $marcflavour eq 'UNIMARC'
+ && $record_type eq 'auths'
+ ) ? 'UNIMARCAUTH' : $marcflavour
+ );
+ print MARC::File::XML::header();
+ print "\n";
+ $xml_header_written = 1;