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->TransactionId%>/<%$rev->Id%>/<%$rev->Filename | u%>">
  51 <&|/l, $rev->CreatedAsString, $size, $rev->CreatorObj->Name &>[_1] ([_2]) by [_3]</&>
  52 </a>
  53 </font></li>
  54 % }
  55 % $fontsize='size="-2"';
  56 % }
  57 </ul>
  58
  59 % }
  60 <& /Elements/TitleBoxEnd &>
  61 <BR>
  62 % }
  63
  64 <%INIT>
  65 my %documents;
  66
  67 while ( my $attach = $Attachments->Next() ) {
  68     next unless ($attach->Filename());
  69    unshift( @{ $documents{ $attach->Filename } }, $attach );
  70 }
  71
  72 </%INIT>
  73 <%ARGS>
  74 $Ticket => undef
  75 $Attachments => undef
  76 </%ARGS>
  77