3 # This file is part of Koha.
5 # Copyright (C) 2015 Rijksmuseum
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
26 use Koha::UploadedFile;
27 use Koha::UploadedFiles;
29 my $input = CGI::->new;
30 my $op = $input->param('op') // 'new';
31 my $plugin = $input->param('plugin');
32 my $index = $input->param('index'); # MARC editor input field id
33 my $term = $input->param('term');
34 my $id = $input->param('id');
35 my $msg = $input->param('msg');
37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
38 { template_name => "tools/upload.tt",
42 flagsrequired => { tools => 'upload_general_files' },
48 owner => $loggedinuser,
55 uploadcategories => Koha::UploadedFile->getCategories,
57 output_html_with_http_headers $input, $cookie, $template->output;
59 } elsif ( $op eq 'search' ) {
62 my $rec = Koha::UploadedFiles->search({
64 $plugin? ( public => 1 ) : (),
66 push @$uploads, $rec->unblessed if $rec;
68 $uploads = Koha::UploadedFiles->search_term({
70 $plugin? (): ( include_private => 1 ),
79 output_html_with_http_headers $input, $cookie, $template->output;
81 } elsif ( $op eq 'delete' ) {
82 # delete only takes the id parameter
84 Koha::UploadedFiles->search({ public => 1, id => $id })->next:
85 Koha::UploadedFiles->find($id);
86 my $fn = $upload? $upload->delete: undef;
87 #TODO Improve error handling
89 JSON::to_json({ $fn => 6 }):
91 $upload? $upload->filename: ( $id? "id $id": '[No id]' ), 7,
96 uploadcategories => Koha::UploadedFile->getCategories,
98 output_html_with_http_headers $input, $cookie, $template->output;
100 } elsif ( $op eq 'download' ) {
101 my $rec = Koha::UploadedFiles->search({
103 $plugin? ( public => 1 ) : (),
105 my $fh = $rec? $rec->file_handle: undef;
106 if ( !$rec || !$fh ) {
109 msg => JSON::to_json( { $id => 5 } ),
110 uploadcategories => Koha::UploadedFile->getCategories,
112 output_html_with_http_headers $input, $cookie, $template->output;
114 print Encode::encode_utf8( $input->header( $rec->httpheaders ) );