first level of groups hash can be array or hash, leading to breakage; for now, keep...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@18193 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 604215a..b243e4a 100644 (file)
--- 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 '*') {