From 3adddd3410acf45874b7a154c2700f3f4b2e7f4b Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Wed, 25 Mar 2015 15:51:00 +0100
Subject: [PATCH] Bug 3873: follow-up for all other pages

This should fix the issue on other pages.

Test plan:
Try to download and export the basket (intranet+opac sides).

Re-tested for errors in comment #5, they do not longer appear.
Signed-off-by: Marc Veron <veron@veron.ch>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 basket/downloadcart.pl  | 1 +
 basket/sendbasket.pl    | 1 +
 opac/opac-basket.pl     | 1 +
 opac/opac-sendbasket.pl | 1 +
 4 files changed, 4 insertions(+)

diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl
index 199271e43c..2d2ceb821a 100755
--- a/basket/downloadcart.pl
+++ b/basket/downloadcart.pl
@@ -66,6 +66,7 @@ if ($bib_list && $format) {
         foreach my $biblio (@bibs) {
 
             my $record = GetMarcBiblio($biblio, 1);
+            next unless $record;
 
             if ($format eq 'iso2709') {
                 $output .= $record->as_usmarc();
diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl
index 9c3e6a547e..0614aa3c96 100755
--- a/basket/sendbasket.pl
+++ b/basket/sendbasket.pl
@@ -72,6 +72,7 @@ if ( $email_add ) {
         $template2->param( biblionumber => $biblionumber );
 
         my $dat              = GetBiblioData($biblionumber);
+        next unless $dat;
         my $record           = GetMarcBiblio($biblionumber, 1);
         my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
         my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl
index 2b345e1cbf..b374f3c8fe 100755
--- a/opac/opac-basket.pl
+++ b/opac/opac-basket.pl
@@ -63,6 +63,7 @@ foreach my $biblionumber ( @bibs ) {
     $template->param( biblionumber => $biblionumber );
 
     my $dat              = &GetBiblioData($biblionumber);
+    next unless $dat;
     my $record           = &GetMarcBiblio($biblionumber);
     next unless $record;
     my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl
index d0aa34a346..551ee1c197 100755
--- a/opac/opac-sendbasket.pl
+++ b/opac/opac-sendbasket.pl
@@ -87,6 +87,7 @@ if ( $email_add ) {
         $template2->param( biblionumber => $biblionumber );
 
         my $dat              = GetBiblioData($biblionumber);
+        next unless $dat;
         my $record           = GetMarcBiblio($biblionumber, 1);
         my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
         my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
-- 
2.39.5