Image exceeds 500KB. Please resize and import again.
[% ELSIF ( error == 303 ) %]
The database image quota currently only allows a maximum of [% image_limit %] images to be stored at any one time. Please delete one or more images to free up quota space.
+ [% ELSIF ( error == 304 ) %]
+ An image with the name '[% IMAGE_NAME %]' already exists.
[% ELSIF ( error == 401 ) %]
An error has occurred and the item(s) was not added to batch [% batch_id %]. Please have your system administrator check the error log for details.
[% ELSIF ( error == 402 ) %]
An error has occurred and batch [% batch_id %] was not deleted. Please have your system administrator check the error log for details.
[% ELSIF ( error == 405 ) %]
An error has occurred and batch [% batch_id %] not fully de-duplicated.
- [% ELSE %]
[% END %]
</p>
</div>
use C4::Debug;
use C4::Creators;
use C4::Patroncards;
+use Data::Dumper;
my $cgi = CGI->new;
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 $duplicate;
+ my $dbh = C4::Context->dbh;
+ my $query = "SELECT COUNT(*) FROM creator_images WHERE image_name=?";
+ my $sth = $dbh->prepare($query);
+ $sth->execute($image_name);
+ my $count = $sth->fetchrow_arrayref;
+ if ( $count->[0] > 0 ) {
+ $duplicate = 1;
+ warn sprintf('Image name already exists.');
+ $errstr = 304;
$template->param(
IMPORT_SUCCESSFUL => 0,
SOURCE_FILE => $source_file,
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;
+ unless ($duplicate) {
+ 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,
+ );
+ }
}
}
}