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 df0bd7c..36ac1cd 100644 (file)
--- 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(