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