|
Lines 175-183
if ($fileID) {
Link Here
|
| 175 |
: ""; |
175 |
: ""; |
| 176 |
|
176 |
|
| 177 |
unless ( $delim eq "," || $delim eq "\t" ) { |
177 |
unless ( $delim eq "," || $delim eq "\t" ) { |
| 178 |
warn |
178 |
warn "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'"; |
| 179 |
"Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'"; |
|
|
| 180 |
$error = 'DELERR'; |
179 |
$error = 'DELERR'; |
|
|
180 |
next; |
| 181 |
} |
181 |
} |
| 182 |
else { |
182 |
else { |
| 183 |
( $biblionumber, $filename ) = split $delim, $line, 2; |
183 |
( $biblionumber, $filename ) = split $delim, $line, 2; |
|
Lines 186-194
if ($fileID) {
Link Here
|
| 186 |
$filename =~ s/[\"\r\n]//g; |
186 |
$filename =~ s/[\"\r\n]//g; |
| 187 |
$filename =~ s/^\s+//; |
187 |
$filename =~ s/^\s+//; |
| 188 |
$filename =~ s/\s+$//; |
188 |
$filename =~ s/\s+$//; |
| 189 |
if (C4::Context->preference("CataloguingLog")) { |
|
|
| 190 |
logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename"); |
| 191 |
} |
| 192 |
my $srcimage = GD::Image->new("$dir/$filename"); |
189 |
my $srcimage = GD::Image->new("$dir/$filename"); |
| 193 |
my $biblio; |
190 |
my $biblio; |
| 194 |
my $item; |
191 |
my $item; |
|
Lines 238-243
if ($fileID) {
Link Here
|
| 238 |
$error = 'OPNIMG'; |
235 |
$error = 'OPNIMG'; |
| 239 |
} |
236 |
} |
| 240 |
undef $srcimage; |
237 |
undef $srcimage; |
|
|
238 |
|
| 239 |
if (!$error && C4::Context->preference("CataloguingLog")) { |
| 240 |
logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename"); |
| 241 |
} |
| 242 |
|
| 241 |
} |
243 |
} |
| 242 |
} |
244 |
} |
| 243 |
close($fh); |
245 |
close($fh); |
| 244 |
- |
|
|