From 26416f73ddc56fca72982caa7b3648ee9403eab7 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 14 Mar 2017 13:57:12 -0400 Subject: [PATCH] LP#1672824 A/T complete_time set on grouped events Set the complete_time value on grouped Action/Trigger events when an event's state reaches "complete", consisten with non-grouped events. Signed-off-by: Bill Erickson Signed-off-by: Galen Charlton --- .../src/perlmods/lib/OpenILS/Application/Trigger/EventGroup.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/EventGroup.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/EventGroup.pm index e5968bc7f2..ec1c3e723f 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/EventGroup.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/EventGroup.pm @@ -256,6 +256,9 @@ sub update_state { $e->clear_start_time() if ($e->state eq 'pending'); + $e->complete_time('now') + if ($e->state eq 'complete' && !$e->complete_time); + if ($fields && ref($fields)) { $e->$_($$fields{$_}) for (keys %$fields); } -- 2.43.2