Bug 28948: Remove query params, 'q' param covers everything needed

[koha-ffzg.git] / patroncards / image-manage.pl

diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl
index 388f2af..3f3c288 100755 (executable)
--- a/patroncards/image-manage.pl
+++ b/patroncards/image-manage.pl
@@ -4,14 +4,12 @@ use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Graphics::Magick;
-use POSIX qw(ceil);
 
 use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Debug;
-use C4::Creators;
-use C4::Patroncards;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Creators qw( html_table );
+use C4::Patroncards qw( get_image put_image rm_image );
 
 my $cgi = CGI->new;
 
@@ -20,7 +18,6 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
                     query               => $cgi,
                     type                => "intranet",
                     flagsrequired       => {tools => 'label_creator'},
-                    debug               => 0,
                     });
 
 my $file_name = $cgi->param('uploadfile') || '';