From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 19 Aug 2016 15:41:14 +0000 (-0400)
Subject: LP#1615025 TPAC large circ history sort repair
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7cddf474896a02efdb8d94fa36711be4bab5d715;p=evergreen%2Ftadl.git

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 <berickxx@gmail.com>
Signed-off-by: Mike Rylander <mrylander@gmail.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 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;