Lines 143-152
if ($fileID) {
Link Here
|
143 |
$error = 'DELERR'; |
143 |
$error = 'DELERR'; |
144 |
} |
144 |
} |
145 |
else { |
145 |
else { |
146 |
( $biblionumber, $filename ) = split $delim, $line; |
146 |
( $biblionumber, $filename ) = split $delim, $line, 2; |
147 |
$biblionumber =~ |
147 |
$biblionumber =~ |
148 |
s/[\"\r\n]//g; # remove offensive characters |
148 |
s/[\"\r\n]//g; # remove offensive characters |
149 |
$filename =~ s/[\"\r\n\s]//g; |
149 |
$filename =~ s/[\"\r\n]//g; |
|
|
150 |
$filename =~ s/^\s+//; |
151 |
$filename =~ s/\s+$//; |
152 |
warn "## $total cover image biblionumber: $biblionumber file: $filename\n"; |
150 |
my $srcimage = GD::Image->new("$dir/$filename"); |
153 |
my $srcimage = GD::Image->new("$dir/$filename"); |
151 |
if ( defined $srcimage ) { |
154 |
if ( defined $srcimage ) { |
152 |
$total++; |
155 |
$total++; |
153 |
- |
|
|