From 70c12a25d71060f37c9b4783bdd7276676dfd864 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 2 Sep 2008 13:56:10 +0000
Subject: [PATCH 1/1] close the cstore connection before return

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10502 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index e24565c092..24ac733386 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -183,7 +183,10 @@ sub CRUD_action_object_permcheck {
         }
     }
 
-    return $obj if ($self->{action} eq 'retrieve');
+    if ($self->{action} eq 'retrieve') {
+        $e->commit;
+        return $obj;
+    }
 
     my $val = $e->session->request("open-ils.cstore.direct.$o_type.$self->{action}" => $obj )->gather(1);
     $e->commit;
-- 
2.43.2