#!/usr/bin/perl
-use warnings;
-use strict;
+use Modern::Perl;
use CGI qw ( -utf8 );
use Graphics::Magick;
use POSIX qw(ceil);
-use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Auth;
debug => 0,
});
-my $image_name = $cgi->param('image_name') || '';
my $file_name = $cgi->param('uploadfile') || '';
+my $image_name = $cgi->param('image_name') || $file_name;
my $upload_file = $cgi->upload('uploadfile') || '';
my $op = $cgi->param('op') || 'none';
-my @image_ids = $cgi->param('image_id') if $cgi->param('image_id');
+my @image_ids = $cgi->multi_param('image_id') if $cgi->param('image_id');
my $source_file = "$file_name"; # otherwise we end up with what amounts to a pointer to a filehandle rather than a user-friendly filename
my $display_columns = { image => [ #{db column => {label => 'col label', is link? }},
{image_id => {label => 'ID', link_field => 0}},
{image_name => {label => 'Name', link_field => 0}},
+ {_delete => {label => 'Delete', link_field => 0}},
{select => {label => 'Select', value => 'image_id'}},
],
};
my $errstr = ''; # NOTE: For error codes see error-messages.inc
if ($op eq 'upload') {
- if (!$upload_file) {
- warn sprintf('An error occurred while attempting to upload file %s.', $source_file);
- $errstr = 301;
+ # Checking for duplicate image name
+ my $dbh = C4::Context->dbh;
+ my $query = "SELECT COUNT(*) FROM creator_images WHERE image_name=?";
+ my ( $exists ) = $dbh->selectrow_array( $query, undef, $image_name );
+ if ( $exists ) {
+ $errstr = 304;
$template->param(
IMPORT_SUCCESSFUL => 0,
SOURCE_FILE => $source_file,
TABLE => $table,
error => $errstr,
);
- }
- else {
- my $image = Graphics::Magick->new;
- eval{$image->Read($cgi->tmpFileName($file_name));};
- if ($@) {
- warn sprintf('An error occurred while creating the image object: %s',$@);
- $errstr = 202;
+ } else {
+ if (!$upload_file) {
+ warn sprintf('An error occurred while attempting to upload file %s.', $source_file);
+ $errstr = 301;
$template->param(
IMPORT_SUCCESSFUL => 0,
SOURCE_FILE => $source_file,
);
}
else {
- my $errstr = '';
- my $size = $image->Get('filesize');
- $errstr = 302 if $size > 500000;
- $image->Set(magick => 'png'); # convert all images to png as this is a lossless format which is important for resizing operations later on
- my $err = put_image($image_name, $image->ImageToBlob()) || '0';
- $errstr = 101 if $err == 1;
- $errstr = 303 if $err == 202;
- if ($errstr) {
+ my $image = Graphics::Magick->new;
+ eval{$image->Read($cgi->tmpFileName($file_name));};
+ if ($@) {
+ warn sprintf('An error occurred while creating the image object: %s',$@);
+ $errstr = 202;
$template->param(
IMPORT_SUCCESSFUL => 0,
SOURCE_FILE => $source_file,
IMAGE_NAME => $image_name,
TABLE => $table,
error => $errstr,
- image_limit => $image_limit,
);
}
else {
- $table = html_table($display_columns->{'image'}, get_image(undef, "image_id, image_name")); # refresh table data after successfully performing save operation
- $template->param(
- IMPORT_SUCCESSFUL => 1,
- SOURCE_FILE => $source_file,
- IMAGE_NAME => $image_name,
- TABLE => $table,
- );
+ my $errstr = '';
+ my $size = $image->Get('filesize');
+ $errstr = 302 if $size > 500000;
+ $image->Set(magick => 'png'); # convert all images to png as this is a lossless format which is important for resizing operations later on
+ my $err = put_image($image_name, $image->ImageToBlob()) || '0';
+ $errstr = 101 if $err == 1;
+ $errstr = 303 if $err == 202;
+ if ($errstr) {
+ $template->param(
+ IMPORT_SUCCESSFUL => 0,
+ SOURCE_FILE => $source_file,
+ IMAGE_NAME => $image_name,
+ TABLE => $table,
+ error => $errstr,
+ image_limit => $image_limit,
+ );
+ }
+ else {
+ $table = html_table($display_columns->{'image'}, get_image(undef, "image_id, image_name")); # refresh table data after successfully performing save operation
+ $template->param(
+ IMPORT_SUCCESSFUL => 1,
+ SOURCE_FILE => $source_file,
+ IMAGE_NAME => $image_name,
+ TABLE => $table,
+ );
+ }
}
}
}
This file is part of Koha.
-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
-Foundation; either version 2 of the License, or (at your option) any later version.
+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 Foundation; either version 3 of the License, or
+(at your option) any later version.
+
+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 A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
-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,
-Fifth Floor, Boston, MA 02110-1301 USA.
+You should have received a copy of the GNU General Public License
+along with Koha; if not, see <http://www.gnu.org/licenses>.
=head1 DISCLAIMER OF WARRANTY