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