(not new_acq related) smallfix to avoid a die in case of an invalid record

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Paul Poulain 2009-05-28 18:32:24 +02:00 committed by Henri-Damien LAURENT
parent 25c0e2da2f
commit 474dca7cb7
1 changed files with 2 additions and 2 deletions

View File

@ -92,7 +92,7 @@ while ((my ($biblionumber)= $sth->fetchrow)) {
next;
}
# deal with BROWSER part
if ($browser_tag) {
if ($browser_tag && $Koharecord) {
foreach my $browsed_field ($Koharecord->subfield($browser_tag,$browser_subfield)) {
$browsed_field =~ s/\.//g;
my $upto = length($browsed_field)<=$max_digits?length($browsed_field):$max_digits;
@ -103,7 +103,7 @@ while ((my ($biblionumber)= $sth->fetchrow)) {
}
}
#deal with CLOUD part
if ($cloud_tag) {
if ($cloud_tag && $Koharecord) {
foreach ($Koharecord->field($cloud_tag)) {
my $line;
foreach ($_->subfields()) {