From cd881ab3507c97bd7f39793f5eeb6b1039e3c66f Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 6 Oct 2010 13:28:09 +0000 Subject: [PATCH] first level of groups hash can be array or hash, leading to breakage; for now, keep it simple and return continue-status to keep the caller alive git-svn-id: svn://svn.open-ils.org/ILS/trunk@18193 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm index 604215a062..b243e4aaf8 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm @@ -697,15 +697,16 @@ sub run_all_events { my $granflag = shift; my ($groups) = $self->method_lookup('open-ils.trigger.event.find_pending_by_group')->run($granularity, $granflag); + $client->status( new OpenSRF::DomainObject::oilsContinueStatus ); # Could report on how the "found" events were grouped, but who's going to # consume that information? - for my $key (keys %$groups) { - if (@{ $$groups{$key} }) { - $client->respond({"status" => "found"}); - last; - } - } +# for my $key (keys %$groups) { +# if (@{ $$groups{$key} }) { +# $client->respond({"status" => "found"}); +# last; +# } +# } for my $def ( keys %$groups ) { if ($def eq '*') { -- 2.11.0