|
Lines 120-126
my $id = $cgi->param('id');
Link Here
|
| 120 |
my $format = $cgi->param('format'); |
120 |
my $format = $cgi->param('format'); |
| 121 |
|
121 |
|
| 122 |
if (not defined $format) { |
122 |
if (not defined $format) { |
| 123 |
emit_formats($id); |
123 |
emit_formats($id, $format_to_stylesheet_map, $format_info, $cgi); |
| 124 |
} elsif ($id) { |
124 |
} elsif ($id) { |
| 125 |
|
125 |
|
| 126 |
# koha:biblionumber:0152018484 |
126 |
# koha:biblionumber:0152018484 |
|
Lines 136-142
if (not defined $format) {
Link Here
|
| 136 |
exit 0; |
136 |
exit 0; |
| 137 |
} |
137 |
} |
| 138 |
|
138 |
|
| 139 |
my $transformer = get_transformer($format); |
139 |
my $transformer = get_transformer($format, $format_to_stylesheet_map, $format_info); |
| 140 |
unless (defined $transformer) { |
140 |
unless (defined $transformer) { |
| 141 |
print $cgi->header( -status => '406 invalid format requested' ); |
141 |
print $cgi->header( -status => '406 invalid format requested' ); |
| 142 |
exit 0; |
142 |
exit 0; |
|
Lines 167-173
if (not defined $format) {
Link Here
|
| 167 |
exit 0; |
167 |
exit 0; |
| 168 |
|
168 |
|
| 169 |
sub emit_formats { |
169 |
sub emit_formats { |
| 170 |
my $id = shift; |
170 |
my ($id, $format_to_stylesheet_map, $format_info, $cgi) = @_; |
| 171 |
|
171 |
|
| 172 |
if (defined $id) { |
172 |
if (defined $id) { |
| 173 |
print $cgi->header( -type =>'application/xml', -status => '300 multiple choices' ); |
173 |
print $cgi->header( -type =>'application/xml', -status => '300 multiple choices' ); |
|
Lines 192-198
sub emit_formats {
Link Here
|
| 192 |
|
192 |
|
| 193 |
|
193 |
|
| 194 |
sub get_transformer { |
194 |
sub get_transformer { |
| 195 |
my $format = lc shift; |
195 |
my ($format, $format_to_stylesheet_map, $format_info) = @_; |
|
|
196 |
$format = lc $format; |
| 196 |
|
197 |
|
| 197 |
my $marcflavour = uc(C4::Context->preference('marcflavour')); |
198 |
my $marcflavour = uc(C4::Context->preference('marcflavour')); |
| 198 |
return unless $format_to_stylesheet_map->{$marcflavour}->{$format}; |
199 |
return unless $format_to_stylesheet_map->{$marcflavour}->{$format}; |
| 199 |
- |
|
|