3 # This file is part of Koha.
5 # Copyright 2013 Universidad Nacional de Cordoba
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use C4::Auth qw/check_cookie_auth/;
25 use Koha::CoverImages;
32 $input->cookie('CGISESSID'),
33 { tools => 'upload_local_cover_images' } );
35 if ( $auth_status ne "ok" ) {
39 my $op = $input->param('op') || q{};
40 my $imagenumber = $input->param('imagenumber');
44 if ( $op eq "cud-delete" ) {
47 Koha::CoverImages->find($imagenumber)->delete;
51 imagenumber => $imagenumber,
53 error => "MSG_INVALID_IMAGENUMBER"
57 imagenumber => $imagenumber,
67 binmode STDOUT, ":encoding(UTF-8)";
69 -type => 'application/json',
73 print to_json( $response );