Lines 20-32
use Modern::Perl;
Link Here
|
20 |
use Mojo::Base 'Mojolicious::Controller'; |
20 |
use Mojo::Base 'Mojolicious::Controller'; |
21 |
|
21 |
|
22 |
use Koha::Illrequests; |
22 |
use Koha::Illrequests; |
23 |
use Koha::Library; |
23 |
use Koha::Libraries; |
24 |
|
24 |
|
25 |
sub list { |
25 |
sub list { |
26 |
my ($c, $args, $cb) = @_; |
26 |
my $c = shift->openapi->valid_input or return; |
27 |
|
27 |
|
|
|
28 |
my $args = $c->req->params->to_hash // {}; |
28 |
my $filter; |
29 |
my $filter; |
29 |
$args //= {}; |
|
|
30 |
my $output = []; |
30 |
my $output = []; |
31 |
|
31 |
|
32 |
# Create a hash where all keys are embedded values |
32 |
# Create a hash where all keys are embedded values |
Lines 45-51
sub list {
Link Here
|
45 |
my $requests = Koha::Illrequests->search($filter); |
45 |
my $requests = Koha::Illrequests->search($filter); |
46 |
|
46 |
|
47 |
while (my $request = $requests->next) { |
47 |
while (my $request = $requests->next) { |
48 |
my $unblessed = $request->unblessed; |
48 |
my $unblessed = $request->TO_JSON; |
49 |
# Add the request's id_prefix |
49 |
# Add the request's id_prefix |
50 |
$unblessed->{id_prefix} = $request->id_prefix; |
50 |
$unblessed->{id_prefix} = $request->id_prefix; |
51 |
# Augment the request response with patron details |
51 |
# Augment the request response with patron details |
Lines 78-84
sub list {
Link Here
|
78 |
push @{$output}, $unblessed |
78 |
push @{$output}, $unblessed |
79 |
} |
79 |
} |
80 |
|
80 |
|
81 |
return $c->$cb( $output, 200 ); |
81 |
return $c->render( status => 200, openapi => $output ); |
82 |
|
82 |
|
83 |
} |
83 |
} |
84 |
|
84 |
|