From c33c5e0a89514194742d2c18e57f6a842b1718ec Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 31 Oct 2008 14:09:06 +0000
Subject: [PATCH] retrieve bibs using substream (streaming) mode.  handle
 retrieval failure more gracefully.  log retrieval failure

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@11009 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/support-scripts/generate_circ_notices.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/support-scripts/generate_circ_notices.pl b/Open-ILS/src/support-scripts/generate_circ_notices.pl
index b33f8e1dd3..18b63d1ae6 100755
--- a/Open-ILS/src/support-scripts/generate_circ_notices.pl
+++ b/Open-ILS/src/support-scripts/generate_circ_notices.pl
@@ -266,6 +266,7 @@ sub generate_notice {
     my @circs = @_;
     return unless @circs;
     my $circ_list = fetch_circ_data(@circs);
+    return unless @$circ_list;
     my $tt = Template->new({ABSOLUTE => 1});
 
     # see if there is a configured bounce address for this org unit.
@@ -410,8 +411,10 @@ sub fetch_circ_data {
         ]);
     $ORG_CACHE{$circ_lib_id} = $circ_lib;
 
+    my $circ_ids = [map {$_->id} @circs];
+
     my $circ_objs = $e->search_action_circulation([
-        {id => [map {$_->id} @circs]},
+        {id => $circ_ids},
         {   flesh => 3,
             flesh_fields => {
                 circ => [q/target_copy/],
@@ -419,7 +422,9 @@ sub fetch_circ_data {
                 acn => ['record'],
             }
         }
-    ]);
+    ], {substream => 1});
+
+    $logger->error("notice: error retrieving circ objects @$circ_ids") unless @$circ_ids;
 
     $_->circ_lib($circ_lib) for @$circ_objs;
     $_->usr($usr) for @$circ_objs;
-- 
2.11.0