[Rt-commit] rt branch, 4.4/add-ticket-viewed-transaction, created. rt-4.4.1-110-g478f145

[Dustin Collins]

The branch, 4.4/add-ticket-viewed-transaction has been created
        at  478f14544be9c9280c1134c059eedfadcb3cc513 (commit)

- Log -----------------------------------------------------------------
commit 478f14544be9c9280c1134c059eedfadcb3cc513
Author: Dustin Collins <strega at bestpractical.com>
Date:   Tue Sep 6 16:08:37 2016 -0400

    Add 'TicketViewed' transaction when a ticket displays
    
    In order to keep track of when a users views a ticket, the transaction type 'TicketViewed' is added every time a users loads the ticket details 'Display' tab.
    
    Fixes: T#170730

diff --git a/lib/RT/Transaction.pm b/lib/RT/Transaction.pm
index da41850..ce90c20 100644
--- a/lib/RT/Transaction.pm
+++ b/lib/RT/Transaction.pm
@@ -1373,6 +1373,10 @@ sub _CanonicalizeRoleName {
         $principal->Load($self->Field);
         return ("Removed from group '[_1]'", $principal->Object->Name); #loc()
     },
+    TicketViewed => sub {
+        my $self = shift;
+        return ("Viewed ticket"); #loc()
+    },
 );
 
 
diff --git a/share/html/Ticket/Display.html b/share/html/Ticket/Display.html
index 4c49857..490b193 100644
--- a/share/html/Ticket/Display.html
+++ b/share/html/Ticket/Display.html
@@ -153,9 +153,13 @@ if ($ARGS{'id'} eq 'new') {
     unless ( $TicketObj->CurrentUserHasRight('ShowTicket') ) {
         Abort("No permission to view newly created ticket #".$TicketObj->id.".");
     }
-} else { 
+} else {
     $TicketObj ||= LoadTicket($ARGS{'id'});
 
+    if ($TicketObj) {
+        $TicketObj->_NewTransaction(Type => "TicketViewed");
+    }
+
     $TicketObj->CurrentUser->PrincipalObj->HasRights( Object => $TicketObj );
 
     my $SkipProcessing;

-----------------------------------------------------------------------