|
Lines 21-26
use Mojo::Base 'Mojolicious::Controller';
Link Here
|
| 21 |
|
21 |
|
| 22 |
use Koha::Illrequest::Config; |
22 |
use Koha::Illrequest::Config; |
| 23 |
use Koha::Illrequests; |
23 |
use Koha::Illrequests; |
|
|
24 |
use Koha::Illbackend; |
| 24 |
|
25 |
|
| 25 |
=head1 NAME |
26 |
=head1 NAME |
| 26 |
|
27 |
|
|
Lines 37-123
Return a list of available ILL backends and its capabilities
Link Here
|
| 37 |
sub list { |
38 |
sub list { |
| 38 |
my $c = shift->openapi->valid_input; |
39 |
my $c = shift->openapi->valid_input; |
| 39 |
|
40 |
|
| 40 |
my $config = Koha::Illrequest::Config->new; |
41 |
my $config = Koha::Illrequest::Config->new; |
| 41 |
my $backends = $config->available_backends; |
42 |
my $backends = $config->available_backends; |
| 42 |
|
43 |
|
| 43 |
my @data; |
44 |
my @data; |
| 44 |
foreach my $b ( @$backends ) { |
45 |
foreach my $b (@$backends) { |
| 45 |
my $backend = Koha::Illrequest->new->load_backend( $b ); |
46 |
my $backend = Koha::Illrequest->new->load_backend($b); |
| 46 |
push @data, { |
47 |
push @data, |
|
|
48 |
{ |
| 47 |
ill_backend_id => $b, |
49 |
ill_backend_id => $b, |
| 48 |
capabilities => $backend->capabilities, |
50 |
capabilities => $backend->capabilities, |
| 49 |
}; |
51 |
}; |
| 50 |
} |
52 |
} |
| 51 |
return $c->render( status => 200, openapi => \@data ); |
53 |
return $c->render( status => 200, openapi => \@data ); |
| 52 |
} |
54 |
} |
| 53 |
|
55 |
|
| 54 |
=head3 list_statuses |
56 |
=head3 get |
| 55 |
|
57 |
|
| 56 |
Return a list of existing ILL statuses |
58 |
Get one backend |
| 57 |
|
59 |
|
| 58 |
=cut |
60 |
=cut |
| 59 |
|
61 |
|
| 60 |
sub list_statuses { |
62 |
sub get { |
| 61 |
my $c = shift->openapi->valid_input; |
63 |
my $c = shift->openapi->valid_input; |
| 62 |
|
64 |
|
| 63 |
my $backend_id = $c->validation->param('ill_backend_id'); |
65 |
my $backend_id = $c->validation->param('ill_backend_id'); |
| 64 |
|
66 |
|
| 65 |
#FIXME: Currently fetching all requests, it'd be great if we could fetch distinct(status). |
67 |
return try { |
| 66 |
# Even doing it with distinct status, we need the ILL request object, so that strings_map works and |
|
|
| 67 |
# the ILL request returns the correct status and info respective to its backend. |
| 68 |
my $ill_requests = Koha::Illrequests->search( |
| 69 |
{backend => $backend_id}, |
| 70 |
# { |
| 71 |
# columns => [ qw/status/ ], |
| 72 |
# group_by => [ qw/status/ ], |
| 73 |
# } |
| 74 |
); |
| 75 |
|
| 76 |
my @data; |
| 77 |
while (my $request = $ill_requests->next) { |
| 78 |
my $status_data = $request->strings_map; |
| 79 |
|
| 80 |
foreach my $status_class ( qw(status_alias status) ){ |
| 81 |
if ($status_data->{$status_class}){ |
| 82 |
push @data, { |
| 83 |
$status_data->{$status_class}->{str} ? (str => $status_data->{$status_class}->{str}) : |
| 84 |
$status_data->{$status_class}->{code} ? (str => $status_data->{$status_class}->{code}) : (), |
| 85 |
$status_data->{$status_class}->{code} ? (code => $status_data->{$status_class}->{code}) : (), |
| 86 |
} |
| 87 |
} |
| 88 |
} |
| 89 |
} |
| 90 |
|
| 91 |
# Remove duplicate statuses |
| 92 |
my %seen; |
| 93 |
@data = grep { my $e = $_; my $key = join '___', map { $e->{$_}; } sort keys %$_;!$seen{$key}++ } @data; |
| 94 |
|
| 95 |
return $c->render( status => 200, openapi => \@data ); |
| 96 |
} |
| 97 |
|
68 |
|
| 98 |
=head3 get |
69 |
#FIXME: Should we move load_backend into Koha::Illbackend... |
|
|
70 |
# or maybe make Koha::Ill::Backend a base class for all |
| 71 |
# backends? |
| 72 |
my $backend = Koha::Illrequest->new->load_backend($backend_id); |
| 99 |
|
73 |
|
| 100 |
Get one backend |
74 |
my $backend_module = Koha::Illbackend->new; |
| 101 |
|
75 |
|
| 102 |
=cut |
76 |
my $embed = |
|
|
77 |
$backend_module->embed( $backend_id, |
| 78 |
$c->req->headers->header('x-koha-embed') ); |
| 103 |
|
79 |
|
| 104 |
sub get { |
80 |
#TODO: We need a to_api method in Koha::Illbackend |
| 105 |
my $c = shift->openapi->valid_input; |
81 |
my $return = { |
| 106 |
|
82 |
ill_backend_id => $backend_id, |
| 107 |
my $backend_id = $c->validation->param('ill_backend_id'); |
83 |
capabilities => $backend->capabilities, |
|
|
84 |
}; |
| 108 |
|
85 |
|
| 109 |
return try { |
|
|
| 110 |
my $backend = Koha::Illrequest->new->load_backend( $backend_id ); |
| 111 |
return $c->render( |
86 |
return $c->render( |
| 112 |
status => 200, |
87 |
status => 200, |
| 113 |
openapi => { |
88 |
openapi => $embed ? { %$return, %$embed } : $return, |
| 114 |
ill_backend_id => $backend_id, |
|
|
| 115 |
capabilities => $backend->capabilities |
| 116 |
} |
| 117 |
); |
89 |
); |
| 118 |
} catch { |
90 |
} |
|
|
91 |
catch { |
| 119 |
return $c->render( |
92 |
return $c->render( |
| 120 |
status => 404, |
93 |
status => 404, |
| 121 |
openapi => { error => "ILL backend does not exist" } |
94 |
openapi => { error => "ILL backend does not exist" } |
| 122 |
); |
95 |
); |
| 123 |
}; |
96 |
}; |