|
Lines 79-84
elsif ($format =~ /marcstd/) {
Link Here
|
| 79 |
($error,$marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
79 |
($error,$marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
| 80 |
$format = 'marcstd'; |
80 |
$format = 'marcstd'; |
| 81 |
} |
81 |
} |
|
|
82 |
elsif ( $format =~ /isbd/ ) { |
| 83 |
$marc = GetISBDView($biblionumber, "opac"); |
| 84 |
$format = 'isbd'; |
| 85 |
} |
| 82 |
else { |
86 |
else { |
| 83 |
$error= "Format $format is not supported."; |
87 |
$error= "Format $format is not supported."; |
| 84 |
} |
88 |
} |
|
Lines 96-101
else {
Link Here
|
| 96 |
-type => 'application/marc', |
100 |
-type => 'application/marc', |
| 97 |
-charset=>'ISO-2022', |
101 |
-charset=>'ISO-2022', |
| 98 |
-attachment=>"bib-$biblionumber.$format"); |
102 |
-attachment=>"bib-$biblionumber.$format"); |
|
|
103 |
} |
| 104 |
elsif ( $format eq 'isbd' ) { |
| 105 |
print $query->header( |
| 106 |
-type => 'text/plain', |
| 107 |
-charset => 'utf-8', |
| 108 |
-attachment => "bib-$biblionumber.txt" |
| 109 |
); |
| 99 |
}else{ |
110 |
}else{ |
| 100 |
print $query->header( |
111 |
print $query->header( |
| 101 |
-type => 'application/octet-stream', |
112 |
-type => 'application/octet-stream', |
| 102 |
- |
|
|