00234f291882a952ac01d621949888a3309dfac9
[srvgit] / Koha / REST / V1 / Items.pm
1 package Koha::REST::V1::Items;
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
18 use Modern::Perl;
19
20 use Mojo::Base 'Mojolicious::Controller';
21
22 use Koha::Items;
23
24 use Try::Tiny;
25
26 =head1 NAME
27
28 Koha::REST::V1::Items - Koha REST API for handling items (V1)
29
30 =head1 API
31
32 =head2 Methods
33
34 =cut
35
36 =head3 list
37
38 Controller function that handles listing Koha::Item objects
39
40 =cut
41
42 sub list {
43     my $c = shift->openapi->valid_input or return;
44
45     return try {
46         my $items_set = Koha::Items->new;
47         my $items     = $c->objects->search( $items_set );
48         return $c->render(
49             status  => 200,
50             openapi => $items
51         );
52     }
53     catch {
54         unless ( blessed $_ && $_->can('rethrow') ) {
55             return $c->render(
56                 status  => 500,
57                 openapi => {
58                     error =>
59                       "Something went wrong, check Koha logs for details."
60                 }
61             );
62         }
63         return $c->render(
64             status  => 500,
65             openapi => { error => "$_" }
66         );
67     };
68 }
69
70
71 =head3 get
72
73 Controller function that handles retrieving a single Koha::Item
74
75 =cut
76
77 sub get {
78     my $c = shift->openapi->valid_input or return;
79
80     my $item;
81     try {
82         $item = Koha::Items->find($c->validation->param('item_id'));
83         return $c->render( status => 200, openapi => $item->to_api );
84     }
85     catch {
86         unless ( defined $item ) {
87             return $c->render( status => 404,
88                                openapi => { error => 'Item not found'} );
89         }
90         if ( $_->isa('DBIx::Class::Exception') ) {
91             return $c->render( status  => 500,
92                                openapi => { error => $_->{msg} } );
93         }
94         else {
95             return $c->render( status => 500,
96                 openapi => { error => "Something went wrong, check the logs."} );
97         }
98     };
99 }
100
101 1;