From: Bill Erickson <berick@esilibrary.com>
Date: Fri, 19 Aug 2011 12:48:04 +0000 (-0400)
Subject: Tpac: stream bookbag entry retrieval to reduce msg size
X-Git-Tag: sprint4-merge-nov22~5128^2~47
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2af9bebeeb2dd6ceab91d44010cf214701140143;p=working%2FEvergreen.git

Tpac: stream bookbag entry retrieval to reduce msg size

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 9d3fab0844..698f467e0c 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -1134,11 +1134,13 @@ sub load_myopac_bookbags {
         offset => $self->cgi->param('offset') || 0
     };
 
-    $ctx->{bookbags} = $e->search_container_biblio_record_entry_bucket([
-        {owner => $self->editor->requestor->id, btype => 'bookbag'},
-        # XXX what to do about the possibility of really large bookbags here?
-        {"flesh" => 1, "flesh_fields" => {"cbreb" => ["items"]}, %$args}
-    ]);
+    $ctx->{bookbags} = $e->search_container_biblio_record_entry_bucket(
+        [
+            {owner => $self->editor->requestor->id, btype => 'bookbag'},
+            {"flesh" => 1, "flesh_fields" => {"cbreb" => ["items"]}, %$args}
+        ], 
+        {substream => 1}
+    );
 
     if(!$ctx->{bookbags}) {
         $e->rollback;