Lines 107-113
my $id = $cgi->param('id');
Link Here
|
107 |
my $format = $cgi->param('format'); |
107 |
my $format = $cgi->param('format'); |
108 |
|
108 |
|
109 |
if (not defined $format) { |
109 |
if (not defined $format) { |
110 |
emit_formats($id); |
110 |
emit_formats($id, $format_to_stylesheet_map, $format_info, $cgi); |
111 |
} elsif ($id) { |
111 |
} elsif ($id) { |
112 |
|
112 |
|
113 |
# koha:biblionumber:0152018484 |
113 |
# koha:biblionumber:0152018484 |
Lines 123-129
if (not defined $format) {
Link Here
|
123 |
exit 0; |
123 |
exit 0; |
124 |
} |
124 |
} |
125 |
|
125 |
|
126 |
my $transformer = get_transformer($format); |
126 |
my $transformer = get_transformer($format, $format_to_stylesheet_map, $format_info); |
127 |
unless (defined $transformer) { |
127 |
unless (defined $transformer) { |
128 |
print $cgi->header( -status => '406 invalid format requested' ); |
128 |
print $cgi->header( -status => '406 invalid format requested' ); |
129 |
exit 0; |
129 |
exit 0; |
Lines 154-160
if (not defined $format) {
Link Here
|
154 |
exit 0; |
154 |
exit 0; |
155 |
|
155 |
|
156 |
sub emit_formats { |
156 |
sub emit_formats { |
157 |
my $id = shift; |
157 |
my ($id, $format_to_stylesheet_map, $format_info, $cgi) = @_; |
158 |
|
158 |
|
159 |
if (defined $id) { |
159 |
if (defined $id) { |
160 |
print $cgi->header( -type =>'application/xml', -status => '300 multiple choices' ); |
160 |
print $cgi->header( -type =>'application/xml', -status => '300 multiple choices' ); |
Lines 179-185
sub emit_formats {
Link Here
|
179 |
|
179 |
|
180 |
|
180 |
|
181 |
sub get_transformer { |
181 |
sub get_transformer { |
182 |
my $format = lc shift; |
182 |
my ($format, $format_to_stylesheet_map, $format_info) = @_; |
|
|
183 |
$format = lc $format; |
183 |
|
184 |
|
184 |
my $marcflavour = uc(C4::Context->preference('marcflavour')); |
185 |
my $marcflavour = uc(C4::Context->preference('marcflavour')); |
185 |
return unless $format_to_stylesheet_map->{$marcflavour}->{$format}; |
186 |
return unless $format_to_stylesheet_map->{$marcflavour}->{$format}; |
186 |
- |
|
|