Bumping database version to 3.05.00.015
[wip/koha-chris_n.git] / patroncards / image-manage.pl
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 use CGI;
7 use Graphics::Magick;
8 use POSIX qw(ceil);
9 use autouse 'Data::Dumper' => qw(Dumper);
10
11 use C4::Context;
12 use C4::Auth;
13 use C4::Output;
14 use C4::Debug;
15 use C4::Creators 1.000000;
16 use C4::Patroncards 1.000000;
17
18 my $cgi = CGI->new;
19
20 my ($template, $loggedinuser, $cookie) = get_template_and_user({
21                     template_name       => "patroncards/image-manage.tmpl",
22                     query               => $cgi,
23                     type                => "intranet",
24                     authnotrequired     => 0,
25                     flagsrequired       => {tools => 'batch_upload_patron_images'}, # FIXME: establish flag for patron card creator
26                     debug               => 0,
27                     });
28
29 my $image_name = $cgi->param('image_name') || '';
30 my $file_name = $cgi->param('uploadfile') || '';
31 my $upload_file = $cgi->upload('uploadfile') || '';
32 my $op = $cgi->param('op') || 'none';
33 my @image_ids = $cgi->param('image_id') if $cgi->param('image_id');
34
35 my $source_file = "$file_name"; # otherwise we end up with what amounts to a pointer to a filehandle rather than a user-friendly filename
36
37 my $display_columns = { image =>    [  #{db column      => {label => 'col label', is link?          }},
38                                         {image_id       => {label => 'ID',      link_field      => 0}},
39                                         {image_name     => {label => 'Name',    link_field      => 0}},
40                                         {select         => {label => 'Select',  value           => 'image_id'}},
41                                     ],
42 };
43 my $table = html_table($display_columns->{'image'}, get_image(undef, "image_id, image_name"));
44
45 my $image_limit = C4::Context->preference('ImageLimit') || '';
46 my $errstr = '';        # NOTE: For error codes see error-messages.inc
47
48 if ($op eq 'upload') {
49     if (!$upload_file) {
50         warn sprintf('An error occurred while attempting to upload file %s.', $source_file);
51         $errstr = 301;
52         $template->param(
53             IMPORT_SUCCESSFUL => 0,
54             SOURCE_FILE => $source_file,
55             IMAGE_NAME => $image_name,
56             TABLE => $table,
57             error => 1,
58             $errstr => 1,
59         );
60     }
61     else {
62         my $image = Graphics::Magick->new;
63         eval{$image->Read($cgi->tmpFileName($file_name));};
64         if ($@) {
65             warn sprintf('An error occurred while creating the image object: %s',$@);
66             $errstr = 202;
67             $template->param(
68                 IMPORT_SUCCESSFUL => 0,
69                 SOURCE_FILE => $source_file,
70                 IMAGE_NAME => $image_name,
71                 TABLE => $table,
72                 error => 1,
73                 $errstr => 1,
74             );
75         }
76         else {
77             my $errstr = '';
78             my $size = $image->Get('filesize');
79             $errstr =  302 if $size > 500000;
80             $image->Set(magick => 'png'); # convert all images to png as this is a lossless format which is important for resizing operations later on
81             my $err = put_image($image_name, $image->ImageToBlob()) || '0';
82             $errstr = 101 if $err == 1;
83             $errstr = 303 if $err == 202;
84             if ($errstr) {
85                 $template->param(
86                     IMPORT_SUCCESSFUL => 0,
87                     SOURCE_FILE => $source_file,
88                     IMAGE_NAME => $image_name,
89                     TABLE => $table,
90                     error => 1,
91                     $errstr => 1,
92                     image_limit => $image_limit,
93                 );
94             }
95             else {
96                 $table = html_table($display_columns->{'image'}, get_image(undef, "image_id, image_name"));  # refresh table data after successfully performing save operation
97                 $template->param(
98                     IMPORT_SUCCESSFUL => 1,
99                     SOURCE_FILE => $source_file,
100                     IMAGE_NAME => $image_name,
101                     TABLE => $table,
102                 );
103             }
104         }
105     }
106 }
107 elsif ($op eq 'delete') {
108     my $err = '';
109     my $errstr = '';
110     if (@image_ids) {
111         $err = rm_image(\@image_ids);
112         $errstr = 102 if $err;
113     }
114     else {
115         warn sprintf('No image ids passed in to delete.');
116         $errstr = 202;
117     }
118     if ($errstr) {
119         $template->param(
120             DELETE_SUCCESSFULL => 0,
121             IMAGE_IDS => join(', ', @image_ids),
122             TABLE => $table,
123             error => 1,
124             $errstr => 1,
125             image_ids => join(',',@image_ids),
126         );
127     }
128     else {
129         $table = html_table($display_columns->{'image'}, get_image(undef, "image_id, image_name"));  # refresh table data after successfully performing delete operation
130         $template->param(
131             DELETE_SUCCESSFULL => 1,
132             TABLE => $table,
133         );
134     }
135 }
136 elsif ($op eq 'none') {
137     $template->param(
138         IMPORT_SUCCESSFUL => 0,
139         SOURCE_FILE => $source_file,
140         IMAGE_NAME => $image_name,
141         TABLE => $table,
142     );
143 }
144 else { # to trap unsupported operations
145     warn sprintf('Image upload interface called an unsupported operation: %s',$op);
146     $errstr = 201;
147     $template->param(
148         IMPORT_SUCCESSFUL => 0,
149         SOURCE_FILE => $source_file,
150         IMAGE_NAME => $image_name,
151         TABLE => $table,
152         error => 1,
153         $errstr => 1,
154     );
155 }
156
157 output_html_with_http_headers $cgi, $cookie, $template->output;
158
159 __END__
160
161 =head1 NAME
162
163 image-upload.pl - Script for handling uploading of single images and importing them into the database.
164
165 =head1 SYNOPSIS
166
167 image-upload.pl
168
169 =head1 DESCRIPTION
170
171 This script is called and presents the user with an interface allowing him/her to upload a single image file. Files greater than 500K will be refused.
172
173 =head1 AUTHOR
174
175 Chris Nighswonger <cnighswonger AT foundations DOT edu>
176
177 =head1 COPYRIGHT
178
179 Copyright 2009 Foundations Bible College.
180
181 =head1 LICENSE
182
183 This file is part of Koha.
184
185 Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
186 Foundation; either version 2 of the License, or (at your option) any later version.
187
188 You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin Street,
189 Fifth Floor, Boston, MA 02110-1301 USA.
190
191 =head1 DISCLAIMER OF WARRANTY
192
193 Koha is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
194 A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
195
196 =cut