From b57f38308655fdb30075cc52ebaab6d430fe2bc5 Mon Sep 17 00:00:00 2001
From: senator <senator@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 28 Sep 2010 20:26:09 +0000
Subject: [PATCH] A/T: Send an early response back to the client when running
 all pending events The client may wish to know when the relativelty fast
 process of creating the events is over, and the relatively slow process of
 validating them and running their reactors/cleanup/etc is about to begin.

git-svn-id: svn://svn.open-ils.org/ILS/trunk@18089 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
index 8b8e982149..cfa31f83a0 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
@@ -672,6 +672,15 @@ 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;
 }
-- 
2.11.0