projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7298: (follow-up) fix uninitialized variable warning
[koha.git]
/
tools
/
upload-cover-image.pl
diff --git
a/tools/upload-cover-image.pl
b/tools/upload-cover-image.pl
index
7552e28
..
b85a81a
100755
(executable)
--- a/
tools/upload-cover-image.pl
+++ b/
tools/upload-cover-image.pl
@@
-48,6
+48,7
@@
use C4::Auth;
use C4::Output;
use C4::Images;
use C4::UploadedFile;
use C4::Output;
use C4::Images;
use C4::UploadedFile;
+use C4::Log;
my $debug = 1;
my $debug = 1;
@@
-60,7
+61,7
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { tools => 'upload_cover_images' },
+ flagsrequired => { tools => 'upload_
local_
cover_images' },
debug => 0,
}
);
debug => 0,
}
);
@@
-143,10
+144,15
@@
if ($fileID) {
$error = 'DELERR';
}
else {
$error = 'DELERR';
}
else {
- ( $biblionumber, $filename ) = split $delim, $line;
+ ( $biblionumber, $filename ) = split $delim, $line
, 2
;
$biblionumber =~
s/[\"\r\n]//g; # remove offensive characters
$biblionumber =~
s/[\"\r\n]//g; # remove offensive characters
- $filename =~ s/[\"\r\n\s]//g;
+ $filename =~ s/[\"\r\n]//g;
+ $filename =~ s/^\s+//;
+ $filename =~ s/\s+$//;
+ if (C4::Context->preference("CataloguingLog")) {
+ logaction('CATALOGUING', 'MODIFY', $biblionumber, "cover image: $filename");
+ }
my $srcimage = GD::Image->new("$dir/$filename");
if ( defined $srcimage ) {
$total++;
my $srcimage = GD::Image->new("$dir/$filename");
if ( defined $srcimage ) {
$total++;