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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-11 14:55:37 -0400 (Tue, 11 Mar 2008)
New Revision: 8976

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
and return the result of the cstore call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 18:52:51 UTC (rev 8975)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 18:55:37 UTC (rev 8976)
@@ -185,8 +185,9 @@
     return $obj if ($self->{action} eq 'retrieve');
 
     my $val = $e->session->request("open-ils.cstore.direct.$o_type.$self->{action}" => $obj )->gather(1);
+    $e->commit;
 
-    $e->commit;
+    return $val;
 }
 
 sub search_permacrud {