Lines 128-135
else {
Link Here
|
128 |
-attachment => "bib-$biblionumber.txt" |
128 |
-attachment => "bib-$biblionumber.txt" |
129 |
); |
129 |
); |
130 |
} else { |
130 |
} else { |
131 |
binmode STDOUT, ':encoding(UTF-8)'; |
|
|
132 |
print $query->header( |
131 |
print $query->header( |
|
|
132 |
-'Content-Transfer-Encoding' => 'binary', |
133 |
-type => 'application/octet-stream', |
133 |
-type => 'application/octet-stream', |
134 |
-charset => 'utf-8', |
134 |
-charset => 'utf-8', |
135 |
-attachment => "bib-$biblionumber.$format" |
135 |
-attachment => "bib-$biblionumber.$format" |
136 |
- |
|
|