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; |