From 51bc9f88f871ae18809f1b6a13926b8afdabf296 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 3 Mar 2009 21:47:46 +0000 Subject: [PATCH] pull last updated event from db for timestamp updates git-svn-id: svn://svn.open-ils.org/ILS/trunk@12387 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Trigger/EventGroup.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm index baf8e80efb..45006e6346 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm @@ -185,6 +185,7 @@ sub update_state { my @oks; my $ok; + my $last_updated; for my $event ( @{ $self->events } ) { my $e = $self->editor->retrieve_action_trigger_event( $event->id ); $e->start_time( 'now' ) unless $e->start_time; @@ -197,6 +198,7 @@ sub update_state { my $ok = $self->editor->update_action_trigger_event( $e ); if ($ok) { push @oks, $ok; + $last_updated = $e->id; } } @@ -207,13 +209,14 @@ sub update_state { $ok = $self->editor->xact_commit; } + my $updated = $self->editor->retrieve_action_trigger_event($last_updated); if ($ok) { for my $event ( @{ $self->events } ) { - my $updated = $self->editor->data; - $event->start_time( $updated->start_time ); - $event->update_time( $updated->update_time ); - $event->update_process( $updated->update_process ); - $event->state( $updated->state ); + my $e = $event->event; + $e->start_time( $updated->start_time ); + $e->update_time( $updated->update_time ); + $e->update_process( $updated->update_process ); + $e->state( $updated->state ); } } -- 2.43.2