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