rt/html/Ticket/Elements/ShowTransaction

   1 %# {{{ BEGIN BPS TAGGED BLOCK
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  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
  16 %# from www.gnu.org.
  17 %#
  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.
  22 %#
  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.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  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.)
  35 %#
  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.
  44 %#
  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">&nbsp;</a>' : '&nbsp;' |n %></TD>
  48 <TD>&nbsp&nbsp;</TD>
  49 <TD><font size=-2><% $transdate|n %></font>&nbsp;</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%>
  53
  54 </b></TD>
  55 <TD><%$TimeTaken%>&nbsp;</TD>
  56 <TD ALIGN="RIGHT"><font size=-1><%$titlebar_commands|n%></font></TD>
  57 </TR>
  58 <TR class="<% $RowNum%2 ? 'oddline' : 'evenline'%>"><TD colspan=5>
  59 % $m->comp('ShowTransactionAttachments', %ARGS, Parent => 0) unless ($Collapsed ||!$ShowBody);
  60 </TD>
  61 </TR>
  62
  63 <%ARGS>
  64 $Ticket => undef
  65 $Transaction => undef
  66 $ShowHeaders => 0
  67 $Collapsed => undef
  68 $ShowTitleBarCommands => 1
  69 $RowNum => 1
  70 $AttachPath => $RT::WebPath."/Ticket/Attachment"
  71 $UpdatePath => $RT::WebPath."/Ticket/Update.html"
  72 $EmailRecordPath => $RT::WebPath."/Ticket/ShowEmailRecord.html"
  73 $Attachments => undef
  74 $AttachmentContent => undef
  75 $ShowBody => 1
  76 $LastTransaction => 0
  77 </%ARGS>
  78
  79 <%INIT>
  80
  81 my ( $TimeTaken, $TicketString, $bgcolor );
  82
  83 my $transdate = $Transaction->CreatedAsString();
  84 $transdate =~ s/\s/&nbsp;/g;
  85
  86 if ( $Transaction->Type =~ /^(Create|Correspond|Comment$)/ ) {
  87     if ( $Transaction->IsInbound ) {
  88         $bgcolor = "#336699";
  89     }
  90     else {
  91         $bgcolor = "#339999";
  92     }
  93 }
  94 elsif (    ( $Transaction->Field =~ /^Owner$/ )
  95         or ( $Transaction->Type =~ /^(AddWatcher|DelWatcher)$/ ) ) {
  96     $bgcolor = "#333399";
  97
  98 }
  99 elsif ( $Transaction->Type =~ /^(AddLink|DeleteLink)$/ ) {
 100     $bgcolor = "#336633";
 101 }
 102 elsif ( $Transaction->Type =~ /^(Status|Set|Told)$/ ) {
 103     if ( $Transaction->Field =~ /^(Told|Starts|Started|Due)$/ ) {
 104         $bgcolor = "#663366";
 105     }
 106     else {
 107         $bgcolor = "#993333";
 108     }
 109 }
 110 else {
 111     $bgcolor = "#cccccc";
 112 }
 113
 114 if ( $Ticket->Id != $Transaction->Ticket ) {
 115     $TicketString = "Ticket " . $Transaction->Ticket . ": ";
 116 }
 117
 118 if ( $Transaction->TimeTaken != 0 ) {
 119     $TimeTaken = $Transaction->TimeTaken . " min";
 120 } else {
 121     $TimeTaken = '';
 122 }
 123
 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();
 128 }
 129 my $titlebar_commands = '&nbsp;';
 130
 131 my @DisplayHeaders=qw ( _all);
 132
 133 if ( $Transaction->Type =~ /EmailRecord$/ ) {
 134     @DisplayHeaders = qw(To Cc Bcc);
 135
 136     $titlebar_commands .=
 137         "[<a target=\"_blank\" href=\"$EmailRecordPath?id="
 138       . $Transaction->Ticket
 139       . "&Transaction="
 140       . $Transaction->Id
 141       . "&Attachment="
 142       . (    $Transaction->Attachments->First
 143           && $Transaction->Attachments->First->Id )
 144
 145       . '">' . loc('Show') . "</a>]&nbsp;";
 146     $ShowBody = 0;
 147 }
 148
 149
 150 # If the transaction has anything attached to it at all
 151 else {
 152
 153     unless ( $ShowHeaders ) {
 154         @DisplayHeaders = qw(To From RT-Send-Cc Cc Bcc Date Subject);
 155     }
 156
 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="
 164               . $Transaction->Id
 165               . "&Action=Respond\">"
 166               . loc('Reply')
 167               . "</a>]&nbsp;";
 168         }
 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="
 175               . $Transaction->Id
 176               . "&Action=Comment\">"
 177               . loc('Comment') . "</a>]";
 178         }
 179     }
 180 }
 181 </%INIT>