From 2af9bebeeb2dd6ceab91d44010cf214701140143 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 19 Aug 2011 08:48:04 -0400 Subject: [PATCH] Tpac: stream bookbag entry retrieval to reduce msg size Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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; -- 2.11.0