From: erickson Date: Thu, 23 Sep 2010 07:17:00 +0000 (+0000) Subject: fetch last updated event before comitting to stay in the xact X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a9f54d5d95f18cefee775cab0419631435bdbb9f;p=evergreen%2Fbjwebb.git fetch last updated event before comitting to stay in the xact git-svn-id: svn://svn.open-ils.org/ILS/trunk@17914 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm index 34b942369..a5c742dc0 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm @@ -212,11 +212,11 @@ sub update_state { 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;