use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use Graphics::Magick;
use POSIX qw(ceil);
use autouse 'Data::Dumper' => qw(Dumper);
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,
SOURCE_FILE => $source_file,
IMAGE_NAME => $image_name,
TABLE => $table,
- error => 1,
- $errstr => 1,
+ error => $errstr,
);
}
else {
SOURCE_FILE => $source_file,
IMAGE_NAME => $image_name,
TABLE => $table,
- error => 1,
- $errstr => 1,
+ error => $errstr,
);
}
else {
SOURCE_FILE => $source_file,
IMAGE_NAME => $image_name,
TABLE => $table,
- error => 1,
- $errstr => 1,
+ error => $errstr,
image_limit => $image_limit,
);
}
DELETE_SUCCESSFULL => 0,
IMAGE_IDS => join(', ', @image_ids),
TABLE => $table,
- error => 1,
- $errstr => 1,
+ error => $errstr,
image_ids => join(',',@image_ids),
);
}
SOURCE_FILE => $source_file,
IMAGE_NAME => $image_name,
TABLE => $table,
- error => 1,
- $errstr => 1,
+ error => $errstr,
);
}