[open-ils-commits] r18090 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application (senator)

[svn at svn.open-ils.org]

Author: senator
Date: 2010-09-28 16:26:39 -0400 (Tue, 28 Sep 2010)
New Revision: 18090

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
Backport r18089 from trunk. A/T feature.


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-09-28 20:26:09 UTC (rev 18089)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-09-28 20:26:39 UTC (rev 18090)
@@ -672,7 +672,16 @@
 
         $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;
 }
 __PACKAGE__->register_method(