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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-22 13:53:37 -0500 (Mon, 22 Dec 2008)
New Revision: 11648

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
take advantage of cseditor's magic logging and event creation by calling it's exported method

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-12-22 18:32:38 UTC (rev 11647)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-12-22 18:53:37 UTC (rev 11648)
@@ -188,7 +188,9 @@
         return $obj;
     }
 
-    my $val = $e->session->request("open-ils.cstore.direct.$o_type.$self->{action}" => $obj )->gather(1);
+    $o_type =~ s/\./_/og;
+    my $method = $self->{action} . "_$o_type";
+    $e->$method($obj) or return $e->die_event;
     $e->commit;
 
     return $val;