From 1e19efadd60eae9393dbb20c242a077ef13e138c Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 28 May 2009 18:32:24 +0200 Subject: [PATCH] (not new_acq related) smallfix to avoid a die in case of an invalid record Signed-off-by: Galen Charlton --- misc/cronjobs/build_browser_and_cloud.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl index 263d8865e6..638741b957 100755 --- a/misc/cronjobs/build_browser_and_cloud.pl +++ b/misc/cronjobs/build_browser_and_cloud.pl @@ -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()) { -- 2.39.5