From f73e85ca1d6603f0f3368412a5db66c10db12a3e Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Thu, 23 Dec 2010 17:52:21 +0000
Subject: [PATCH] self-service improvements, RT10883

---
 FS/FS/ClientAPI/MyAccount.pm      | 10 +++++++++-
 FS/FS/TicketSystem/RT_Internal.pm |  1 +
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index fb445e555..9a20285d7 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1957,16 +1957,24 @@ sub get_ticket {
 # the requested ticket was actually linked to this customer
     my @custs = @{$err_or_ticket->{'custs'}};
     my @txns = @{$err_or_ticket->{'txns'}};
+    my @filtered_txns;
 
     return { 'error' => 'no customer' } unless ( $custnum && scalar(@custs) );
 
     return { 'error' => 'invalid ticket requested' } 
 	unless grep($_ eq $custnum, @custs);
 
+    foreach my $txn ( @txns ) {
+	push @filtered_txns, $txn 
+	    if ($txn->{'type'} eq 'EmailRecord' 
+		|| $txn->{'type'} eq 'Correspond'
+		|| $txn->{'type'} eq 'Create');
+    }
+
     warn "$me get_ticket: sucessful: \n"
       if $DEBUG;
     return { 'error'     => '',
-             'transactions' => \@txns,
+             'transactions' => \@filtered_txns,
 	     'ticket_id' => $p->{'ticket_id'},
            };
   } else {
diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm
index 6fc2bb666..befafb847 100644
--- a/FS/FS/TicketSystem/RT_Internal.pm
+++ b/FS/FS/TicketSystem/RT_Internal.pm
@@ -255,6 +255,7 @@ sub get_ticket {
     my $t = { created => $transaction->Created,
 	content => $transaction->Content,
 	description => $transaction->Description,
+	type => $transaction->Type,
     };
     push @txns, $t;
   }
-- 
2.11.0