close the cstore connection before return
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 2 Sep 2008 13:56:10 +0000 (13:56 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 2 Sep 2008 13:56:10 +0000 (13:56 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10502 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm

index e24565c..24ac733 100644 (file)
@@ -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;