rt/html/Ticket/Elements/ShowAttachments

   1 %# BEGIN LICENSE BLOCK
   2 %#
   3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 %#
   5 %# (Except where explictly superceded by other copyright notices)
   6 %#
   7 %# This work is made available to you under the terms of Version 2 of
   8 %# the GNU General Public License. A copy of that license should have
   9 %# been provided with this software, but in any event can be snarfed
  10 %# from www.gnu.org.
  11 %#
  12 %# This work is distributed in the hope that it will be useful, but
  13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 %# General Public License for more details.
  16 %#
  17 %# Unless otherwise specified, all modifications, corrections or
  18 %# extensions to this work which alter its source code become the
  19 %# property of Best Practical Solutions, LLC when submitted for
  20 %# inclusion in the work.
  21 %#
  22 %#
  23 %# END LICENSE BLOCK
  24 % if (keys %documents) {
  25 <& /Elements/TitleBoxStart, title => loc('Attachments'),
  26         title_class=> 'inverse',
  27         color => "#336699" &>
  28
  29 % foreach my $key (keys %documents) {
  30 % my $fontsize='size="-1"';
  31
  32 <%$key%><br>
  33 <ul>
  34 % foreach my $rev (@{$documents{$key}}) {
  35
  36 <%PERL>
  37 my $size = $rev->ContentLength;
  38
  39 if ($size) {
  40     if ($size > 1024) {
  41         $size = int($size/102.4)/10 . "k";
  42     }
  43     else {
  44         $size = $size ."b";
  45     }
  46
  47 </%PERL>
  48
  49 <li><font <%$fontsize%>>
  50         <A HREF="<%$RT::WebPath%>/Ticket/Attachment/<%$rev->TransactionObj->Id%>/<%$rev->Id%>/<%$rev->Filename%>"><%$rev->CreatedAsString%> (<% $size %>)</a></font></li>
  51 % }
  52 % $fontsize='size="-2"';
  53 % }
  54 </ul>
  55
  56 % }
  57 <& /Elements/TitleBoxEnd &>
  58 <BR>
  59 % }
  60
  61 <%INIT>
  62 my %documents;
  63 my $transactions = $Ticket->Transactions();
  64 while (my $trans = $transactions->Next()) {
  65         my $attachments = $trans->Attachments();
  66         while (my $attach = $attachments->Next()) {
  67               next unless ($attach->Filename());
  68               # most recent at the top
  69               unshift (@{$documents{$attach->Filename}}, $attach);
  70         }
  71 }
  72 </%INIT>
  73 <%ARGS>
  74 $Ticket => undef
  75 </%ARGS>
  76