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

(-)a/opac/opac-export.pl (-6 / +8 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::Record;
22
use C4::Record;
24
use C4::Auth;
23
use C4::Auth;
Lines 107-117 else { Link Here
107
            -charset    => 'utf-8',
106
            -charset    => 'utf-8',
108
            -attachment =>  "bib-$biblionumber.txt"
107
            -attachment =>  "bib-$biblionumber.txt"
109
        );
108
        );
110
    }else{
109
    } else {
110
        binmode STDOUT, ':encoding(UTF-8)';
111
        print $query->header(
111
        print $query->header(
112
            -type => 'application/octet-stream',
112
            -type => 'application/octet-stream',
113
            -charset=>'utf-8',
113
            -charset => 'utf-8',
114
            -attachment=>"bib-$biblionumber.$format");
114
            -attachment => "bib-$biblionumber.$format"
115
        );
115
    }
116
    }
116
    print $marc;
117
    print $marc;
117
}
118
}
118
- 
119
120
1;

Return to bug 16578