From 4d578aa51accef3905b968da96251cde1b37d664 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 28 May 2010 19:37:32 +0000 Subject: [PATCH] added a wait flag to create_events_for_hook() to allow for processing large sets of objects without dropping all the calls on the network at once git-svn-id: svn://svn.open-ils.org/ILS/trunk@16532 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm index d9165f8f3b..a2a954223a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm @@ -1667,9 +1667,12 @@ sub fire_object_event { sub create_events_for_hook { - my($self, $hook, $obj, $org_id) = @_; + my($self, $hook, $obj, $org_id, $wait) = @_; my $ses = OpenSRF::AppSession->create('open-ils.trigger'); - $ses->request('open-ils.trigger.event.autocreate', $hook, $obj, $org_id); + my $req = $ses->request('open-ils.trigger.event.autocreate', $hook, $obj, $org_id); + return undef unless $wait; + my $resp = $req->recv; + return $resp->content if $resp; } sub create_uuid_string { -- 2.11.0