X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Fupload-cover-image.pl;h=f55d8f128d9c8c12b020d2b26a80d29117cf1876;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=6c19de1e993476e22567a1eb64913e3e9a158d1a;hpb=a06223a20d8ce9c0dff6c706a73d13f3169d9ab4;p=koha-ffzg.git

diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl
index 6c19de1e99..f55d8f128d 100755
--- a/tools/upload-cover-image.pl
+++ b/tools/upload-cover-image.pl
@@ -43,17 +43,15 @@ use File::Temp;
 use CGI qw ( -utf8 );
 use GD;
 use C4::Context;
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 use Koha::Biblios;
 use Koha::CoverImages;
 use Koha::Items;
 use Koha::UploadedFiles;
-use C4::Log;
+use C4::Log qw( logaction );
 
-my $debug = 1;
-
-my $input = new CGI;
+my $input = CGI->new;
 
 my $fileID = $input->param('uploadedfileid');
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -62,7 +60,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $input,
         type            => "intranet",
         flagsrequired   => { tools => 'upload_local_cover_images' },
-        debug           => 0,
     }
 );
 
@@ -162,7 +159,6 @@ if ($fileID) {
                           : ( $line =~ /,/ )  ? ","
                           :                     "";
 
-                        #$debug and warn "Delimeter is \'$delim\'";
                         unless ( $delim eq "," || $delim eq "\t" ) {
                             warn
 "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";