[open-ils-commits] r10502 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-02 09:56:10 -0400 (Tue, 02 Sep 2008)
New Revision: 10502

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
close the cstore connection before return

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-09-02 04:10:41 UTC (rev 10501)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-09-02 13:56:10 UTC (rev 10502)
@@ -183,7 +183,10 @@
         }
     }
 
-    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;