<tr>
  <td class="label"><&|/l&>Previously attached<br /><b>check to send</b></&>:</td>
  <td style="border-top: thin dashed #808080;"><% $outfa |n %></td>
</tr>

<%init>
my $TicketObj = LoadTicket($id);

my $outfa;
my $Atts ||= $m->comp('/Ticket/Elements/FindAttachments', Ticket => $TicketObj);
my %documents;
my %docord;
my $ord;
while(my $attach = $Atts->Next)  {
  next unless ($attach->Filename);
  push(@{$documents{$attach->Filename}}, $attach);
  if(!defined $docord{$attach->Filename})  {
    $docord{$attach->Filename} = $ord++;
  }
}
foreach my $key (sort {$docord{$a} <=> $docord{$b}} keys %docord)  {
  foreach my $rev (@{$documents{$key}}) {
    my $size = $rev->ContentLength;
    if ($size) {
      if ($size > 1024) {
        $size = int($size/102.4)/10 . "k";
      } else  {
        $size = $size ."b";
      }
      $outfa .= '<input name="ForwardAttach-'. $rev->TransactionId. '-'. $rev->Id. '" type="checkbox" value="1" />'.
        '<a href="'. RT->Config->Get('WebPath'). '/Ticket/Attachment/'. $rev->TransactionId. '/'. $rev->Id. '/'.
        $rev->Filename. '">'. $rev->Filename. '&nbsp;&nbsp;&nbsp;'.
        loc('[_1] ([_2]) by [_3]', $rev->CreatedAsString, $size, $rev->CreatorObj->Name). '</a><br />'. "\n";
    }
  }
}

return unless length $outfa;
</%init>

<%args>
$id => undef
</%args>
