RT-Attach-Message: yes
Content-Type: text/html

<b>{$Transaction->CreatedAsString}: Request <a href="{RT->Config->Get("WebURL")}Ticket/Display.html?id={$Ticket->id}">{$Ticket->id}</a> was acted upon by {$Transaction->CreatorObj->Name}.</b>
<br>
<table border="0">
<tr><td align="right"><b>Transaction:</b></td><td>{$Transaction->Description}</td></tr>
<tr><td align="right"><b>Queue:</b></td><td>{$Ticket->QueueObj->Name}</td></tr>
<tr><td align="right"><b>Subject:</b></td><td>{$Transaction->Subject || $Ticket->Subject || "(No subject given)"} </td></tr>
<tr><td align="right"><b>Owner:</b></td><td>{$Ticket->OwnerObj->Name}</td></tr>
<tr><td align="right"><b>Requestors:</b></td><td>{$Ticket->RequestorAddresses}</td></tr>
<tr><td align="right"><b>Status:</b></td><td>{$Ticket->Status}</td></tr>
<tr><td align="right"><b>Ticket URL:</b></td><td><a href="{RT->Config->Get("WebURL")}Ticket/Display.html?id={$Ticket->id}">{RT->Config->Get("WebURL")}Ticket/Display.html?id={$Ticket->id}</a></td></tr>
</table>
<br/>
<br/>
{
### BEGIN MULTLINE PERL BLOCK
my $out = '';
my $finalout = '';
my $transactions = $Ticket->Transactions;
while (my $transaction = $transactions->Next) {
    my $type = $transaction->Type;
    if ($transaction->Type eq 'Correspond') {
        my $attachments = $transaction->Attachments;
        while (my $message = $attachments->Next) {
            next unless $message->Creator != 1;
            my $content = $message->Content;
            next unless $content;
            next unless $message->ContentType =~ m!^(text/plain)!i;
            $out .= '<tr style="background-color: #fcc">';
            $out .= '<td>From:</td>';
            $out .= '<td>'.($message->CreatorObj->RealName || $message->CreatorObj->EmailAddress).'</th>';
            $out .= '</tr>';
            $out .= '<tr style="background-color: #fcc">';
            $out .= '<td>Time:</th>';
            $out .= '<td>'.$message->Created.'</th>';
            $out .= '</tr>';
            $out .= '<tr style="background-color: #fcc">';
            $out .= '<td style="border:1pt solid black;">Reply:</th>';
            $out .= '<td style="border:1pt solid black;"><pre>'.$content.'</pre></th>';
            $out .= '</tr>';
        }
    }
    if ($transaction->Type eq 'Comment') {
        my $attachments = $transaction->Attachments;
        while (my $message = $attachments->Next) {
            next unless $message->Creator != 1;
            my $content = $message->Content;
            next unless $content;
            next unless $message->ContentType =~ m!^(text/plain)!i;
            $out .= '<tr style="background-color: #FFFFDD">';
            $out .= '<td>From:</td>';
            $out .= '<td>'.($message->CreatorObj->RealName || $message->CreatorObj->EmailAddress).'</th>';
            $out .= '</tr>';
            $out .= '<tr style="background-color: #FFFFDD">';
            $out .= '<td>Time:</th>';
            $out .= '<td>'.$message->Created.'</th>';
            $out .= '</tr>';
            $out .= '<tr style="background-color: #FFFFDD">';
            $out .= '<td style="border:1pt solid black;">Comment:</th>';
            $out .= '<td style="border:1pt solid black;"><pre>'.$content.'</pre></th>';
            $out .= '</tr>';
        }
    }
}

if ($out ne '') {
    $finalout .= '<table style="text-align:left;border-collapse: collapse;border:1pt solid black;">';
    $finalout .= $out;
    $finalout;
}
### END MULTLINE PERL BLOCK
}