Display worked date for reply/comment transactions

If worked date is different from created date display worked date as part of the transaction description.
bestpractical · Dec 2, 2024 · 5b2f035 · 5b2f035
1 parent 1a2b5e5
commit 5b2f035
Showing 1 changed file with 25 additions and 2 deletions.
diff --git a/lib/RT/Transaction.pm b/lib/RT/Transaction.pm
@@ -1141,11 +1141,34 @@ sub _CanonicalizeRoleName {
     },
     Correspond => sub {
         my $self = shift;
-        return ("Correspondence added");    #loc()
+
+        my $created_date = RT::Date->new(RT->SystemUser);
+        $created_date->Set(Format => 'date', Value => $self->Created);
+        my $worked_date = RT::Date->new(RT->SystemUser);
+        $worked_date->Set(Format => 'date', Value => $self->TimeWorkedDate);
+
+        if ( $self->TimeWorkedDate && ( $created_date->Date ne $worked_date->Date ) ) {
+            return ("Correspondence added for [_1]", $worked_date->Date);    #loc()
+        }
+        else {
+            return ("Correspondence added");    #loc()
+        }
     },
     Comment => sub {
         my $self = shift;
-        return ("Comments added");          #loc()
+
+        my $created_date = RT::Date->new(RT->SystemUser);
+        $created_date->Set(Format => 'date', Value => $self->Created);
+        my $worked_date = RT::Date->new(RT->SystemUser);
+        $worked_date->Set(Format => 'date', Value => $self->TimeWorkedDate);
+
+        if ( $self->TimeWorkedDate && ( $created_date->Date ne $worked_date->Date ) ) {
+            return ("Comments added for [_1]", $worked_date->Date);    #loc()
+        }
+        else {
+            return ("Comments added");    #loc()
+        }
+
     },
     CustomField => sub {
         my $self = shift;