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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-06 15:43:56 -0500 (Fri, 06 Mar 2009)
New Revision: 12451

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
Log:
update ids to match the remaining valid events

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-06 20:43:27 UTC (rev 12450)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-06 20:43:56 UTC (rev 12451)
@@ -87,6 +87,7 @@
         }
         $self->valid(1) if (@valid_events);
         $self->{events} = \@valid_events;
+        $self->{ids} = [ map { $_->id } @valid_events ];
         $self->editor->xact_commit;
     } otherwise {
         $log->error( shift() );