X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=patroncards%2Fimage-manage.pl;h=d72c655e4de77b52e29baa3dad422eff2567e83e;hb=44a4e043a5b9332595a58e4f9d9eb8f4eb8353c0;hp=f9f7eac984aacd77fecbf468532cb03556e7249e;hpb=4f44847c11add59ab7d0c55aeffac1fa2835cc1f;p=koha.git diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl index f9f7eac984..d72c655e4d 100755 --- a/patroncards/image-manage.pl +++ b/patroncards/image-manage.pl @@ -3,7 +3,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use Graphics::Magick; use POSIX qw(ceil); use autouse 'Data::Dumper' => qw(Dumper); @@ -18,7 +18,7 @@ use C4::Patroncards; my $cgi = CGI->new; my ($template, $loggedinuser, $cookie) = get_template_and_user({ - template_name => "patroncards/image-manage.tmpl", + template_name => "patroncards/image-manage.tt", query => $cgi, type => "intranet", authnotrequired => 0, @@ -54,8 +54,7 @@ if ($op eq 'upload') { SOURCE_FILE => $source_file, IMAGE_NAME => $image_name, TABLE => $table, - error => 1, - $errstr => 1, + error => $errstr, ); } else { @@ -69,8 +68,7 @@ if ($op eq 'upload') { SOURCE_FILE => $source_file, IMAGE_NAME => $image_name, TABLE => $table, - error => 1, - $errstr => 1, + error => $errstr, ); } else { @@ -87,8 +85,7 @@ if ($op eq 'upload') { SOURCE_FILE => $source_file, IMAGE_NAME => $image_name, TABLE => $table, - error => 1, - $errstr => 1, + error => $errstr, image_limit => $image_limit, ); } @@ -120,8 +117,7 @@ elsif ($op eq 'delete') { DELETE_SUCCESSFULL => 0, IMAGE_IDS => join(', ', @image_ids), TABLE => $table, - error => 1, - $errstr => 1, + error => $errstr, image_ids => join(',',@image_ids), ); } @@ -149,8 +145,7 @@ else { # to trap unsupported operations SOURCE_FILE => $source_file, IMAGE_NAME => $image_name, TABLE => $table, - error => 1, - $errstr => 1, + error => $errstr, ); }