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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-09-23 03:17:00 -0400 (Thu, 23 Sep 2010)
New Revision: 17914

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
Log:
fetch last updated event before comitting to stay in the xact

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2010-09-23 05:31:03 UTC (rev 17913)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2010-09-23 07:17:00 UTC (rev 17914)
@@ -212,11 +212,11 @@
     if (scalar(@oks) < scalar(@{ $self->ids })) {
         $self->editor->xact_rollback;
         return undef;
-    } else {
-        $ok = $self->editor->xact_commit;
-    }
+    } 
 
     my $updated = $self->editor->retrieve_action_trigger_event($last_updated);
+    $ok = $self->editor->xact_commit;
+
     if ($ok) {
         for my $event ( @{ $self->events } ) {
             my $e = $event->event;