[open-ils-commits] r12687 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-26 11:58:06 -0400 (Thu, 26 Mar 2009)
New Revision: 12687

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
provide a little more flexibility to the caller of open-ils.trigger.events_by_target by allowing flesh fields to be passed in

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-03-26 15:30:15 UTC (rev 12686)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-03-26 15:58:06 UTC (rev 12687)
@@ -3210,7 +3210,9 @@
     }
 
     my $ses = OpenSRF::AppSession->create('open-ils.trigger');
-    my $req = $ses->request('open-ils.trigger.events_by_target', $obj_type, $filters);
+    my $req = $ses->request('open-ils.trigger.events_by_target', 
+        $obj_type, $filters, {atevdef => ['reactor', 'validator']}, 2);
+
     while(my $resp = $req->recv) {
         my $val = $resp->content;
         $conn->respond($val) if $val;

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-26 15:30:15 UTC (rev 12686)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-26 15:58:06 UTC (rev 12687)
@@ -137,6 +137,8 @@
     my $client = shift;
     my $object = shift;
     my $filter = shift || {};
+    my $flesh_fields = shift || {};
+    my $flesh_depth = shift || 1;
 
     my $obj_class = ref($object) || _fm_class_by_hint($object);
     my $obj_hint = ref($object) ? _fm_hint_by_class(ref($object)) : $object;
@@ -209,10 +211,12 @@
 
     my $events = $e->json_query($query);
 
+    $flesh_fields->{atev} = ['event_def'] unless $flesh_fields->{atev};
+
     for my $id (@$events) {
         my $event = $e->retrieve_action_trigger_event([
             $id->{id},
-            {flesh => 1, flesh_fields => {atev => ['event_def']}}
+            {flesh => $flesh_depth, flesh_fields => $flesh_fields}
         ]);
 
         (my $meth = $obj_class) =~ s/^Fieldmapper:://o;