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