1 %# {{{ BEGIN BPS TAGGED BLOCK
5 %# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC
6 %# <jesse@bestpractical.com>
8 %# (Except where explicitly superseded by other copyright notices)
13 %# This work is made available to you under the terms of Version 2 of
14 %# the GNU General Public License. A copy of that license should have
15 %# been provided with this software, but in any event can be snarfed
18 %# This work is distributed in the hope that it will be useful, but
19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 %# General Public License for more details.
23 %# You should have received a copy of the GNU General Public License
24 %# along with this program; if not, write to the Free Software
25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 %# CONTRIBUTION SUBMISSION POLICY:
30 %# (The following paragraph is not intended to limit the rights granted
31 %# to you to modify and distribute this software under the terms of
32 %# the GNU General Public License and is only of importance to you if
33 %# you choose to contribute your changes and enhancements to the
34 %# community by submitting them to Best Practical Solutions, LLC.)
36 %# By intentionally submitting any modifications, corrections or
37 %# derivatives to this work, or any other work intended for use with
38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
39 %# you are the copyright holder for those contributions and you grant
40 %# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
41 %# royalty-free, perpetual, license to use, copy, create derivative
42 %# works based on those contributions, and sublicense and distribute
43 %# those contributions and any derivatives thereof.
45 %# }}} END BPS TAGGED BLOCK
46 <TR class="<% $RowNum%2 ? 'oddline' : 'evenline'%>" >
47 <TD rowspan="2" valign="top" bgcolor="<%$bgcolor%>"><A NAME="txn-<%$Transaction->Id%>" href="#txn-<%$Transaction->Id%>">#</A><% $LastTransaction ? '<a name="lasttrans"> </a>' : ' ' |n %></TD>
49 <TD><font size=-2><% $transdate|n %></font> </TD>
50 % my $desc = $Transaction->BriefDescription;
51 % $m->comp('/Elements/Callback', _CallbackName => 'ModifyDisplay', text => \$desc, Transaction => $Transaction, %ARGS);
52 <TD ALIGN="LEFT"><b><%$Transaction->CreatorObj->Name%> - <%$TicketString%> <%$desc%>
55 <TD><%$TimeTaken%> </TD>
56 <TD ALIGN="RIGHT"><font size=-1><%$titlebar_commands|n%></font></TD>
58 <TR class="<% $RowNum%2 ? 'oddline' : 'evenline'%>"><TD colspan=5>
59 % $m->comp('ShowTransactionAttachments', %ARGS, Parent => 0) unless ($Collapsed ||!$ShowBody);
68 $ShowTitleBarCommands => 1
70 $AttachPath => $RT::WebPath."/Ticket/Attachment"
71 $UpdatePath => $RT::WebPath."/Ticket/Update.html"
72 $EmailRecordPath => $RT::WebPath."/Ticket/ShowEmailRecord.html"
74 $AttachmentContent => undef
81 my ( $TimeTaken, $TicketString, $bgcolor );
83 my $transdate = $Transaction->CreatedAsString();
84 $transdate =~ s/\s/ /g;
86 if ( $Transaction->Type =~ /^(Create|Correspond|Comment$)/ ) {
87 if ( $Transaction->IsInbound ) {
94 elsif ( ( $Transaction->Field =~ /^Owner$/ )
95 or ( $Transaction->Type =~ /^(AddWatcher|DelWatcher)$/ ) ) {
99 elsif ( $Transaction->Type =~ /^(AddLink|DeleteLink)$/ ) {
100 $bgcolor = "#336633";
102 elsif ( $Transaction->Type =~ /^(Status|Set|Told)$/ ) {
103 if ( $Transaction->Field =~ /^(Told|Starts|Started|Due)$/ ) {
104 $bgcolor = "#663366";
107 $bgcolor = "#993333";
111 $bgcolor = "#cccccc";
114 if ( $Ticket->Id != $Transaction->Ticket ) {
115 $TicketString = "Ticket " . $Transaction->Ticket . ": ";
118 if ( $Transaction->TimeTaken != 0 ) {
119 $TimeTaken = $Transaction->TimeTaken . " min";
124 unless ($Attachments) {
125 my $attachments = $Transaction->Attachments;
126 $attachments->Columns( qw( Id Filename ContentType Headers Subject Parent ContentEncoding ContentType TransactionId) );
127 $Attachments = $attachments->ItemsArrayRef();
129 my $titlebar_commands = ' ';
131 my @DisplayHeaders=qw ( _all);
133 if ( $Transaction->Type =~ /EmailRecord$/ ) {
134 @DisplayHeaders = qw(To Cc Bcc);
136 $titlebar_commands .=
137 "[<a target=\"_blank\" href=\"$EmailRecordPath?id="
138 . $Transaction->Ticket
142 . ( $Transaction->Attachments->First
143 && $Transaction->Attachments->First->Id )
145 . '">' . loc('Show') . "</a>] ";
150 # If the transaction has anything attached to it at all
153 unless ( $ShowHeaders ) {
154 @DisplayHeaders = qw(To From RT-Send-Cc Cc Bcc Date Subject);
157 if ( $Attachments->[0] && $ShowTitleBarCommands ) {
158 if ( $Transaction->TicketObj->CurrentUserHasRight('ReplyToTicket')
159 or $Transaction->TicketObj->CurrentUserHasRight('ModifyTicket')) {
160 $titlebar_commands .=
161 "[<a href=\"".$UpdatePath."?id="
162 . $Transaction->Ticket
163 . "&QuoteTransaction="
165 . "&Action=Respond\">"
169 if ( $Transaction->TicketObj->CurrentUserHasRight('CommentOnTicket')
170 or $Transaction->TicketObj->CurrentUserHasRight('ModifyTicket')) {
171 $titlebar_commands .=
172 "[<a href=\"".$UpdatePath."?id="
173 . $Transaction->Ticket
174 . "&QuoteTransaction="
176 . "&Action=Comment\">"
177 . loc('Comment') . "</a>]";