take advantage of cseditor's magic logging and event creation by calling it's exporte...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11648 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index 1f22b86..621ecb8 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -188,7 +188,9 @@ sub CRUD_action_object_permcheck {
         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;