-use C4::Auth;
-use C4::Output;
-use C4::Images;
-use C4::UploadedFile;
-
-my $debug = 1;
-
-my $input = new CGI;
-
-my $fileID=$input->param('uploadedfileid');
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "tools/upload-images.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => { tools => 'upload_cover_images'},
- debug => 0,
- });
-
-my $filetype = $input->param('filetype');
-my $biblionumber = $input->param('biblionumber');
-my $uploadfilename = $input->param('uploadfile');
-my $replace = !C4::Context->preference("AllowMultipleCovers") || $input->param('replace');
-my $op = $input->param('op');
-my %cookies = parse CGI::Cookie($cookie);
-my $sessionID = $cookies{'CGISESSID'}->value;
+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 qw( logaction );
+
+my $input = CGI->new;
+
+my $fileID = $input->param('uploadedfileid');
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "tools/upload-images.tt",
+ query => $input,
+ type => "intranet",
+ flagsrequired => { tools => 'upload_local_cover_images' },
+ }
+);
+
+my $filetype = $input->param('filetype');
+my $biblionumber = $input->param('biblionumber');
+my $itemnumber = $input->param('itemnumber');
+#my $uploadfilename = $input->param('uploadfile'); # obsolete?
+my $replace = !C4::Context->preference("AllowMultipleCovers")
+ || $input->param('replace');
+my $op = $input->param('op');
+my %cookies = parse CGI::Cookie($cookie);
+my $sessionID = $cookies{'CGISESSID'}->value;