<%args>
        $report
</%args>

% my $files = $report->files;

% if (scalar $files->all) {
      <h4>Attachments</h4>
      <table class="reportfile">
%     my @files;
%     # while-loop to not load all complete filecontents into ram
%     while (my $file = $files->next) {
%         push @files, {
%                       id                 => $file->id,
%                       filename           => $file->filename,
%                       length_filecontent => length($file->filecontent),
%                       contenttype        => $file->contenttype,
%                       created_at         => $file->created_at,
%                      };
%     }
%     @files = sort { $a->{filename} cmp $b->{filename} } @files;
%     foreach my $file (@files) {

	  <tr>
            <th align="right"><a href="/tapper/reportfile/id/<% $file->{id}%>#reports/id/<% $report->id %>"><% $file->{filename} %></a></th>          <!--"-->
            <td align="right"><% $file->{length_filecontent} %> Bytes</td>
            <th>
% if ($file->{contenttype} =~ /plain/) {
              view
              <a title="Optimized for inline viewing with ansi2txt." href="/tapper/reportfile/id/<% $file->{id} %>/ansi2txt#reports/id/<% $report->id %>">inline</a> |
              <a title="Optimized for inline viewing with ansi2html." href="/tapper/reportfile/id/<% $file->{id} %>/ansi2html#reports/id/<% $report->id %>">ansi-colored</a>
% }
            </th>
            <th><% $file->{contenttype} %></th>
            <td><% $file->{created_at}->ymd %> <% $file->{created_at}->hms %> GMT</td>
          </tr>
%     }
      </table>
% }

%# Local Variables:
%# buffer-file-coding-system: utf-8
%# End: