Lines 28-33
use List::MoreUtils qw( any );
Link Here
|
28 |
use MARC::Record::MiJ; |
28 |
use MARC::Record::MiJ; |
29 |
|
29 |
|
30 |
use Try::Tiny qw( catch try ); |
30 |
use Try::Tiny qw( catch try ); |
|
|
31 |
use JSON; |
32 |
use Data::Dumper; |
31 |
|
33 |
|
32 |
=head1 API |
34 |
=head1 API |
33 |
|
35 |
|
Lines 43-54
sub get {
Link Here
|
43 |
my $c = shift->openapi->valid_input or return; |
45 |
my $c = shift->openapi->valid_input or return; |
44 |
|
46 |
|
45 |
my $attributes; |
47 |
my $attributes; |
46 |
$attributes = { prefetch => [ 'metadata' ] } # don't prefetch metadata if not needed |
48 |
$attributes = |
47 |
unless $c->req->headers->accept =~ m/application\/json/; |
49 |
{ prefetch => ['metadata'] } # don't prefetch metadata if not needed |
|
|
50 |
unless $c->req->headers->accept =~ m/application\/json/; |
48 |
|
51 |
|
49 |
my $biblio = Koha::Biblios->find( { biblionumber => $c->validation->param('biblio_id') }, $attributes ); |
52 |
my $biblio = Koha::Biblios->find( |
|
|
53 |
{ biblionumber => $c->validation->param('biblio_id') }, $attributes ); |
50 |
|
54 |
|
51 |
unless ( $biblio ) { |
55 |
unless ($biblio) { |
52 |
return $c->render( |
56 |
return $c->render( |
53 |
status => 404, |
57 |
status => 404, |
54 |
openapi => { |
58 |
openapi => { |
Lines 92-101
sub get {
Link Here
|
92 |
any => { |
96 |
any => { |
93 |
status => 406, |
97 |
status => 406, |
94 |
openapi => [ |
98 |
openapi => [ |
95 |
"application/json", |
99 |
"application/json", "application/marcxml+xml", |
96 |
"application/marcxml+xml", |
100 |
"application/marc-in-json", "application/marc", |
97 |
"application/marc-in-json", |
|
|
98 |
"application/marc", |
99 |
"text/plain" |
101 |
"text/plain" |
100 |
] |
102 |
] |
101 |
} |
103 |
} |
Lines 154-256
sub get_biblios_public {
Link Here
|
154 |
|
156 |
|
155 |
my $c = shift->openapi->valid_input or return; |
157 |
my $c = shift->openapi->valid_input or return; |
156 |
|
158 |
|
157 |
my $requested_content_type = $c->req->headers->header('Accept'); |
|
|
158 |
my $searcher = Koha::SearchEngine::Search->new( { index => 'biblios' } ); |
159 |
my $searcher = Koha::SearchEngine::Search->new( { index => 'biblios' } ); |
159 |
my $query = $c->validation->param('q_ccl'); |
160 |
my $query = $c->validation->param('q_ccl'); |
160 |
my $record_processor = Koha::RecordProcessor->new( |
|
|
161 |
{ |
162 |
filters => 'ViewPolicy', |
163 |
options => { |
164 |
interface => 'opac', |
165 |
} |
166 |
} |
167 |
); |
168 |
|
161 |
|
169 |
my ( $error, $results, $total_hits ) = |
162 |
warn Dumper($query); |
170 |
$searcher->simple_search_compat( $query, 0, undef ); |
163 |
|
|
|
164 |
my ( $error, $results, $total_hits ) = $searcher->simple_search_compat( $query, 0, undef ); |
171 |
|
165 |
|
172 |
if ( !$total_hits ) { |
166 |
if ( !$total_hits ) { |
173 |
return $c->render( |
167 |
return $c->render( |
174 |
status => 404, |
168 |
status => 404, |
175 |
openapi => { |
169 |
openapi => { error => 'Nothing found.' } |
176 |
error => 'Nothing found.' |
|
|
177 |
} |
178 |
); |
170 |
); |
179 |
} |
171 |
} |
180 |
|
172 |
|
181 |
sub format_record_by_content_type { |
|
|
182 |
my ($args) = @_; |
183 |
|
184 |
if ( $args->{'content_type'} eq 'application/marc-in-json' ) { |
185 |
for my $record ( @{ $args->{'records'} } ) { |
186 |
$record = $record->to_mij; |
187 |
} |
188 |
return ( q{[} . ( join q{,}, @{ $args->{'records'} } ) . q{]} ); |
189 |
} |
190 |
|
191 |
# Insert additional content types here or above, you know .. alphabetically |
192 |
} |
193 |
|
194 |
sub process_record { |
195 |
my ($args) = @_; |
196 |
|
197 |
my $biblionumber = |
198 |
$args->{'searcher'}->extract_biblionumber( $args->{'record'} ); |
199 |
my $biblio = Koha::Biblios->find( { biblionumber => $biblionumber } ); |
200 |
|
201 |
if ( |
202 |
!( |
203 |
$args->{'patron'} |
204 |
&& $args->{'patron'}->category->override_hidden_items |
205 |
) |
206 |
) |
207 |
{ |
208 |
if ( $biblio->hidden_in_opac( { rules => $args->{'rules'} } ) ) { |
209 |
next; |
210 |
} |
211 |
} |
212 |
|
213 |
$args->{'processor'}->process( $args->{'record'} ); |
214 |
|
215 |
return $args->{'record'}; |
216 |
} |
217 |
|
218 |
return try { |
173 |
return try { |
219 |
|
174 |
|
220 |
my $marcflavour = C4::Context->preference('marcflavour'); |
175 |
my $patron = $c->stash('koha.user'); |
221 |
|
176 |
my $is_public = $c->stash('is_public'); |
222 |
# Apply framework's filtering to MARC::Record object |
177 |
my $opachiddenitems_rules = C4::Context->yaml_preference('OpacHiddenItems'); |
223 |
|
178 |
my @biblionumbers = map { $_->field('999')->subfield('c') } $results->@*; |
224 |
my $patron = $c->stash('koha.user'); |
179 |
my @biblios = map { Koha::Biblios->find( { biblionumber => $_ } ) } @biblionumbers; |
225 |
my $opachiddenitems_rules = |
180 |
my @records = map { |
226 |
C4::Context->yaml_preference('OpacHiddenItems'); |
181 |
next if ( $is_public && !( $patron && $patron->category->override_hidden_items ) |
227 |
|
182 |
&& $_->hidden_in_opac( { rules => $opachiddenitems_rules } ) ); |
228 |
my @records; |
183 |
$_->metadata->record; |
229 |
for my $result ( @{$results} ) { |
184 |
} @biblios; |
230 |
|
|
|
231 |
if ( ref($result) eq q{} ) { next; } |
232 |
|
233 |
push @records, |
234 |
process_record( |
235 |
{ |
236 |
searcher => $searcher, |
237 |
processor => $record_processor, |
238 |
record => $result, |
239 |
patron => $patron, |
240 |
rules => $opachiddenitems_rules |
241 |
} |
242 |
); |
243 |
} |
244 |
|
245 |
my $response = |
246 |
format_record_by_content_type( |
247 |
{ content_type => $requested_content_type, records => \@records } ); |
248 |
|
185 |
|
249 |
$c->respond_to( |
186 |
$c->respond_to( |
250 |
mij => { |
187 |
mij => { |
251 |
status => 200, |
188 |
status => 200, |
252 |
format => 'mij', |
189 |
format => 'mij', |
253 |
data => $response |
190 |
data => '[' . ( join ',', map { $_->to_mij } @records ) . ']', |
254 |
}, |
191 |
}, |
255 |
any => { |
192 |
any => { |
256 |
status => 406, |
193 |
status => 406, |
Lines 263-268
sub get_biblios_public {
Link Here
|
263 |
}; |
200 |
}; |
264 |
} |
201 |
} |
265 |
|
202 |
|
|
|
203 |
|
266 |
=head3 get_public |
204 |
=head3 get_public |
267 |
|
205 |
|
268 |
Controller function that handles retrieving a single biblio object |
206 |
Controller function that handles retrieving a single biblio object |
Lines 289-302
sub get_public {
Link Here
|
289 |
|
227 |
|
290 |
my $record = $biblio->metadata->record; |
228 |
my $record = $biblio->metadata->record; |
291 |
|
229 |
|
292 |
my $opachiddenitems_rules = C4::Context->yaml_preference('OpacHiddenItems'); |
230 |
my $opachiddenitems_rules = |
|
|
231 |
C4::Context->yaml_preference('OpacHiddenItems'); |
293 |
my $patron = $c->stash('koha.user'); |
232 |
my $patron = $c->stash('koha.user'); |
294 |
|
233 |
|
295 |
# Check if the biblio should be hidden for unprivileged access |
234 |
# Check if the biblio should be hidden for unprivileged access |
296 |
# unless there's a logged in user, and there's an exception for it's |
235 |
# unless there's a logged in user, and there's an exception for it's |
297 |
# category |
236 |
# category |
298 |
unless ( $patron and $patron->category->override_hidden_items ) { |
237 |
unless ( $patron and $patron->category->override_hidden_items ) { |
299 |
if ( $biblio->hidden_in_opac({ rules => $opachiddenitems_rules }) ) |
238 |
if ( |
|
|
239 |
$biblio->hidden_in_opac( { rules => $opachiddenitems_rules } ) ) |
300 |
{ |
240 |
{ |
301 |
return $c->render( |
241 |
return $c->render( |
302 |
status => 404, |
242 |
status => 404, |
Lines 309-321
sub get_public {
Link Here
|
309 |
|
249 |
|
310 |
my $marcflavour = C4::Context->preference("marcflavour"); |
250 |
my $marcflavour = C4::Context->preference("marcflavour"); |
311 |
|
251 |
|
312 |
my $record_processor = Koha::RecordProcessor->new({ |
252 |
my $record_processor = Koha::RecordProcessor->new( |
313 |
filters => 'ViewPolicy', |
253 |
{ |
314 |
options => { |
254 |
filters => 'ViewPolicy', |
315 |
interface => 'opac', |
255 |
options => { |
316 |
frameworkcode => $biblio->frameworkcode |
256 |
interface => 'opac', |
|
|
257 |
frameworkcode => $biblio->frameworkcode |
258 |
} |
317 |
} |
259 |
} |
318 |
}); |
260 |
); |
|
|
261 |
|
319 |
# Apply framework's filtering to MARC::Record object |
262 |
# Apply framework's filtering to MARC::Record object |
320 |
$record_processor->process($record); |
263 |
$record_processor->process($record); |
321 |
|
264 |
|
Lines 343-352
sub get_public {
Link Here
|
343 |
any => { |
286 |
any => { |
344 |
status => 406, |
287 |
status => 406, |
345 |
openapi => [ |
288 |
openapi => [ |
346 |
"application/marcxml+xml", |
289 |
"application/marcxml+xml", "application/marc-in-json", |
347 |
"application/marc-in-json", |
290 |
"application/marc", "text/plain" |
348 |
"application/marc", |
|
|
349 |
"text/plain" |
350 |
] |
291 |
] |
351 |
} |
292 |
} |
352 |
); |
293 |
); |
Lines 365-373
Controller function that handles retrieving biblio's items
Link Here
|
365 |
sub get_items { |
306 |
sub get_items { |
366 |
my $c = shift->openapi->valid_input or return; |
307 |
my $c = shift->openapi->valid_input or return; |
367 |
|
308 |
|
368 |
my $biblio = Koha::Biblios->find( { biblionumber => $c->validation->param('biblio_id') }, { prefetch => ['items'] } ); |
309 |
my $biblio = Koha::Biblios->find( |
|
|
310 |
{ biblionumber => $c->validation->param('biblio_id') }, |
311 |
{ prefetch => ['items'] } ); |
369 |
|
312 |
|
370 |
unless ( $biblio ) { |
313 |
unless ($biblio) { |
371 |
return $c->render( |
314 |
return $c->render( |
372 |
status => 404, |
315 |
status => 404, |
373 |
openapi => { |
316 |
openapi => { |
Lines 379-385
sub get_items {
Link Here
|
379 |
return try { |
322 |
return try { |
380 |
|
323 |
|
381 |
my $items_rs = $biblio->items; |
324 |
my $items_rs = $biblio->items; |
382 |
my $items = $c->objects->search( $items_rs ); |
325 |
my $items = $c->objects->search($items_rs); |
383 |
return $c->render( |
326 |
return $c->render( |
384 |
status => 200, |
327 |
status => 200, |
385 |
openapi => $items |
328 |
openapi => $items |
Lines 437-443
sub pickup_locations {
Link Here
|
437 |
my $c = shift->openapi->valid_input or return; |
380 |
my $c = shift->openapi->valid_input or return; |
438 |
|
381 |
|
439 |
my $biblio_id = $c->validation->param('biblio_id'); |
382 |
my $biblio_id = $c->validation->param('biblio_id'); |
440 |
my $biblio = Koha::Biblios->find( $biblio_id ); |
383 |
my $biblio = Koha::Biblios->find($biblio_id); |
441 |
|
384 |
|
442 |
unless ($biblio) { |
385 |
unless ($biblio) { |
443 |
return $c->render( |
386 |
return $c->render( |
Lines 447-453
sub pickup_locations {
Link Here
|
447 |
} |
390 |
} |
448 |
|
391 |
|
449 |
my $patron_id = delete $c->validation->output->{patron_id}; |
392 |
my $patron_id = delete $c->validation->output->{patron_id}; |
450 |
my $patron = Koha::Patrons->find( $patron_id ); |
393 |
my $patron = Koha::Patrons->find($patron_id); |
451 |
|
394 |
|
452 |
unless ($patron) { |
395 |
unless ($patron) { |
453 |
return $c->render( |
396 |
return $c->render( |
Lines 463-476
sub pickup_locations {
Link Here
|
463 |
my @response = (); |
406 |
my @response = (); |
464 |
if ( C4::Context->preference('AllowHoldPolicyOverride') ) { |
407 |
if ( C4::Context->preference('AllowHoldPolicyOverride') ) { |
465 |
|
408 |
|
466 |
my $libraries_rs = Koha::Libraries->search( { pickup_location => 1 } ); |
409 |
my $libraries_rs = |
467 |
my $libraries = $c->objects->search($libraries_rs); |
410 |
Koha::Libraries->search( { pickup_location => 1 } ); |
|
|
411 |
my $libraries = $c->objects->search($libraries_rs); |
468 |
|
412 |
|
469 |
@response = map { |
413 |
@response = map { |
470 |
my $library = $_; |
414 |
my $library = $_; |
471 |
$library->{needs_override} = ( |
415 |
$library->{needs_override} = ( |
472 |
any { $_->branchcode eq $library->{library_id} } |
416 |
any { $_->branchcode eq $library->{library_id} } |
473 |
@{$pl_set->as_list} |
417 |
@{ $pl_set->as_list } |
474 |
) |
418 |
) |
475 |
? Mojo::JSON->false |
419 |
? Mojo::JSON->false |
476 |
: Mojo::JSON->true; |
420 |
: Mojo::JSON->true; |
Lines 480-486
sub pickup_locations {
Link Here
|
480 |
else { |
424 |
else { |
481 |
|
425 |
|
482 |
my $pickup_locations = $c->objects->search($pl_set); |
426 |
my $pickup_locations = $c->objects->search($pl_set); |
483 |
@response = map { $_->{needs_override} = Mojo::JSON->false; $_; } @{$pickup_locations}; |
427 |
@response = map { $_->{needs_override} = Mojo::JSON->false; $_; } |
|
|
428 |
@{$pickup_locations}; |
484 |
} |
429 |
} |
485 |
|
430 |
|
486 |
return $c->render( |
431 |
return $c->render( |
Lines 503-511
access.
Link Here
|
503 |
sub get_items_public { |
448 |
sub get_items_public { |
504 |
my $c = shift->openapi->valid_input or return; |
449 |
my $c = shift->openapi->valid_input or return; |
505 |
|
450 |
|
506 |
my $biblio = Koha::Biblios->find( { biblionumber => $c->validation->param('biblio_id') }, { prefetch => ['items'] } ); |
451 |
my $biblio = Koha::Biblios->find( |
|
|
452 |
{ biblionumber => $c->validation->param('biblio_id') }, |
453 |
{ prefetch => ['items'] } ); |
507 |
|
454 |
|
508 |
unless ( $biblio ) { |
455 |
unless ($biblio) { |
509 |
return $c->render( |
456 |
return $c->render( |
510 |
status => 404, |
457 |
status => 404, |
511 |
openapi => { |
458 |
openapi => { |
Lines 518-525
sub get_items_public {
Link Here
|
518 |
|
465 |
|
519 |
my $patron = $c->stash('koha.user'); |
466 |
my $patron = $c->stash('koha.user'); |
520 |
|
467 |
|
521 |
my $items_rs = $biblio->items->filter_by_visible_in_opac({ patron => $patron }); |
468 |
my $items_rs = |
522 |
my $items = $c->objects->search( $items_rs ); |
469 |
$biblio->items->filter_by_visible_in_opac( { patron => $patron } ); |
|
|
470 |
my $items = $c->objects->search($items_rs); |
523 |
return $c->render( |
471 |
return $c->render( |
524 |
status => 200, |
472 |
status => 200, |
525 |
openapi => $items |
473 |
openapi => $items |
Lines 530-533
sub get_items_public {
Link Here
|
530 |
}; |
478 |
}; |
531 |
} |
479 |
} |
532 |
|
480 |
|
533 |
1; |
481 |
1; |
534 |
- |
|
|