View | Details | Raw Unified | Return to bug 39485
Collapse All | Expand All

(-)a/catalogue/export.pl (-1 / +1 lines)
Lines 70-76 if ( $op eq "export" ) { Link Here
70
            ( $error, $marc ) = marc2marc( $marc, 'marcstd', C4::Context->preference('marcflavour') );
70
            ( $error, $marc ) = marc2marc( $marc, 'marcstd', C4::Context->preference('marcflavour') );
71
            $format = "marcstd";
71
            $format = "marcstd";
72
        }
72
        }
73
        if ( $format =~ /utf8/ or $format =~ /marcstd/ ) {
73
        if ( $format ne 'marc8' ) {
74
            binmode STDOUT, ':encoding(UTF-8)';
74
            binmode STDOUT, ':encoding(UTF-8)';
75
        }
75
        }
76
        print $query->header(
76
        print $query->header(
(-)a/opac/opac-export.pl (-2 / +1 lines)
Lines 162-167 if ($error) { Link Here
162
    print $query->escapeHTML("$error");
162
    print $query->escapeHTML("$error");
163
    print $query->end_html();
163
    print $query->end_html();
164
} else {
164
} else {
165
    binmode STDOUT, ':encoding(UTF-8)' if $format ne 'marc8';
165
    if ( $format eq 'marc8' ) {
166
    if ( $format eq 'marc8' ) {
166
        print $query->header(
167
        print $query->header(
167
            -type       => 'application/marc',
168
            -type       => 'application/marc',
Lines 181-187 if ($error) { Link Here
181
            -attachment => "$file_pre$file_id.$format"
182
            -attachment => "$file_pre$file_id.$format"
182
        );
183
        );
183
    } else {
184
    } else {
184
        binmode STDOUT, ':encoding(UTF-8)';
185
        print $query->header(
185
        print $query->header(
186
            -type       => 'application/octet-stream',
186
            -type       => 'application/octet-stream',
187
            -charset    => 'utf-8',
187
            -charset    => 'utf-8',
188
- 

Return to bug 39485