From 474dca7cb7ce6df89082fd84084ebe2941166313 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
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 <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
---
 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.20.1