close the cstore connection before return

[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / PermaCrud.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index e24565c..24ac733 100644 (file)
--- 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;