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

[svn at svn.open-ils.org]

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

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


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-09-28 19:34:50 UTC (rev 18088)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2010-09-28 20:26:09 UTC (rev 18089)
@@ -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(