From 7cddf474896a02efdb8d94fa36711be4bab5d715 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 19 Aug 2016 11:41:14 -0400 Subject: [PATCH] LP#1615025 TPAC large circ history sort repair Fix TPAC circ history retrieval code thinko so that history rows are retrieved one at a time instead of in a batch (.atomic) to avoid overwhelming Ejabberd. Signed-off-by: Bill Erickson Signed-off-by: Mike Rylander --- .../perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 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 945c9f228e..1219b7046c 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm @@ -1623,15 +1623,17 @@ sub fetch_user_circ_history { ); $e->xact_begin; - my $circs = $e->search_action_user_circ_history([ - {usr => $e->requestor->id}, - { # order newest to oldest by default - order_by => {auch => 'xact_start DESC'}, - $flesh ? %flesh_ops : (), - %limits - }, + my $circs = $e->search_action_user_circ_history( + [ + {usr => $e->requestor->id}, + { # order newest to oldest by default + order_by => {auch => 'xact_start DESC'}, + $flesh ? %flesh_ops : (), + %limits + } + ], {substream => 1} - ]); + ); $e->rollback; return $circs unless $flesh; -- 2.11.0