adding xact rollback & begin

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 dcc2f14..047c1a0 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -2946,6 +2946,8 @@ sub load_myopac_bookbags {
     };
     my $r = $e->json_query($q);
     $ctx->{bookbag_count} = $r->[0]->{'count'};
+    # address a timeout issue
+    $e->rollback;
 
     # If the user wants a specific bookbag's items, load them.
 
@@ -2971,7 +2973,10 @@ sub load_myopac_bookbags {
                 $logger->warn("search failed in load_myopac_bookbags()");
                 $ctx->{bb_item_count} = 0; # fallback value
             }
-
+            
+            # open a new xact
+            $e->xact_begin;
+            
             #calculate page count
             $ctx->{bb_page_count} = int ((($ctx->{bb_item_count} - 1) / $item_limit) + 1);