From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 9 Apr 2013 17:45:24 +0000 (-0400)
Subject: TPAC bucket item retrieval operates in streaming mode
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2fb125be8ae168cef03c947cedcc9c7db9ba4e28;p=contrib%2FConifer.git

TPAC bucket item retrieval operates in streaming mode

TPAC bucket item retreive fleshes bib records with large blobs of MARC
data.  When a bucket contains a few thousand items, the size of the
data passed around in atomic retreival mode will exceed the typical jabber
max stanza size and result in a failure.  Retrieve the records in
streaming mode instead.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Ben Shum <bshum@biblio.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index 87b53ec430..f98645bc03 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
@@ -1881,7 +1881,8 @@ sub bib_container_items_via_search {
             flesh => 1,
             flesh_fields => {"cbrebi" => \@flesh_fields}
         }
-    ]);
+    ], {substream => 1});
+
     unless ($items) {
         $logger->warn(
             "bib_container_items_via_search() couldn't get bucket items: " .