|
Lines 91-98
if ($error){
Link Here
|
| 91 |
print $query->end_html(); |
91 |
print $query->end_html(); |
| 92 |
} |
92 |
} |
| 93 |
else { |
93 |
else { |
| 94 |
print $query->header( |
94 |
if ($format eq 'marc8'){ |
| 95 |
-type => 'application/octet-stream', |
95 |
print $query->header( |
| 96 |
-attachment=>"bib-$biblionumber.$format"); |
96 |
-type => 'application/marc', |
| 97 |
print $marc; |
97 |
-charset=>'ISO-2022', |
|
|
98 |
-attachment=>"bib-$biblionumber.$format"); |
| 99 |
}else{ |
| 100 |
print $query->header( |
| 101 |
-type => 'application/octet-stream', |
| 102 |
-charset=>'utf-8', |
| 103 |
-attachment=>"bib-$biblionumber.$format"); |
| 104 |
} |
| 98 |
} |
105 |
} |
| 99 |
- |
|
|