From: miker Date: Tue, 28 Sep 2010 20:45:59 +0000 (+0000) Subject: Backport r18091 from trunk: move the early-out response so we avoid breaking the... X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=be307e46a84c81a266130599e42e9e73e74ac0fa;p=evergreen%2Fjoelewis.git Backport r18091 from trunk: move the early-out response so we avoid breaking the caller git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_2_0@18092 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm index cfa31f83a0..4a80255376 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm @@ -672,15 +672,6 @@ sub grouped_events { $e->editor->disconnect; } - # 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; - } - } - return \%groups; } @@ -697,6 +688,15 @@ sub run_all_events { my ($groups) = $self->method_lookup('open-ils.trigger.event.find_pending_by_group')->run($granularity); + # 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 $def ( keys %$groups ) { if ($def eq '*') { $logger->info("trigger: run_all_events firing un-grouped events");