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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-10-06 09:28:09 -0400 (Wed, 06 Oct 2010)
New Revision: 18193

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-10-06 13:27:26 UTC (rev 18192)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-10-06 13:28:09 UTC (rev 18193)
@@ -697,15 +697,16 @@
     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 '*') {