projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7961 - Local cover images should support CSV link files
[koha_gimpoz]
/
tools
/
upload-cover-image.pl
diff --git
a/tools/upload-cover-image.pl
b/tools/upload-cover-image.pl
index
7552e28
..
ed1fc5e
100755
(executable)
--- a/
tools/upload-cover-image.pl
+++ b/
tools/upload-cover-image.pl
@@
-143,10
+143,13
@@
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+$//;
+ warn "## $total cover image biblionumber: $biblionumber file: $filename\n";
my $srcimage = GD::Image->new("$dir/$filename");
if ( defined $srcimage ) {
$total++;
my $srcimage = GD::Image->new("$dir/$filename");
if ( defined $srcimage ) {
$total++;