From: Jason Stephenson <jstephenson@mvlc.org>
Date: Thu, 3 Oct 2013 13:19:39 +0000 (-0400)
Subject: Skip unless we actually have an acp object in Marque.pm.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e8c4c8abed2066613fdbe5d8f883973ac153d4c6;p=working%2FEvergreen.git

Skip unless we actually have an acp object in Marque.pm.

For some reason, while running this in the middle of the day, we got an
undefined copy from acps_for_bre in Marque::Biblio.  Since I'm using this
as a stop gap until I write something better, I figured that I would add
a short circuit to skip any unefined acps returned by that method.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
---

diff --git a/Open-ILS/src/support-scripts/Marque.pm.in b/Open-ILS/src/support-scripts/Marque.pm.in
index df0bd7c337..36ac1cd6ff 100644
--- a/Open-ILS/src/support-scripts/Marque.pm.in
+++ b/Open-ILS/src/support-scripts/Marque.pm.in
@@ -464,6 +464,7 @@ sub next {
             if ($Marque::config->option_value('items')) {
                 my @acps = $self->acps_for_bre($bre);
                 foreach my $acp (@acps) {
+                    next unless ($acp);
                     my $location = $Marque::config->option_value('location');
                     my $price = ($acp->price() ? $Marque::config->option_value('money').$acp->price() : '');
                     $r->insert_grouped_field(