From: Bill Erickson <berickxx@gmail.com>
Date: Tue, 14 Mar 2017 17:57:12 +0000 (-0400)
Subject: LP#1672824 A/T complete_time set on grouped events
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0ef165435f41df5a53db9159554cd4dd2f985200;p=Evergreen.git

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 <berickxx@gmail.com>
Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
---

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);
         }