[svn:p5ee] r10392 - p5ee/trunk/App-WorkQueue/lib/App

[spadkins]

Author: spadkins
Date: Fri Dec  7 12:34:16 2007
New Revision: 10392

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm

Log:
updated schedule_entry_acquisition to accept a max_events parameter

Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm       (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm       Fri Dec  7 12:34:16 2007
@@ -936,11 +936,11 @@
 
 sub schedule_entry_acquisition {
     &App::sub_entry if ($App::trace);
-    my $self = shift;
-    my %event = @_;
-    $self->{acquisition_event} = \%event;
+    my ($self, $event, $max_events) = @_;
+    $max_events ||= 1;
+    $self->{acquisition_event} = $event;
     my $context = $self->{context};
-    $context->extend_event_loop($self, "dispatch_events", [1]);
+    $context->extend_event_loop($self, "dispatch_events", [$max_events]);
     &App::sub_exit() if ($App::trace);
 }