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