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

(-)a/catalogue/export.pl (-1 / +3 lines)
Lines 69-74 if ($op eq "export") { Link Here
69
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
69
                ($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
70
                $format = "marcstd";
70
                $format = "marcstd";
71
            }
71
            }
72
            if ( $format =~ /utf8/ or $format =~ /marcstd/ ) {
73
                binmode STDOUT, ':encoding(UTF-8)';
74
            }
72
            print $query->header(
75
            print $query->header(
73
                -type => 'application/octet-stream',
76
                -type => 'application/octet-stream',
74
                -attachment=>"bib-$biblionumber.$format");
77
                -attachment=>"bib-$biblionumber.$format");
75
- 

Return to bug 16578