<%args> $reportlist % my $count_all = 0; % my $count_pass = 0; % my $count_fail = 0; % my $count_unknown = 0; % $count_all += @{$reportlist->{reports}}; % my $reports = $reportlist->{reports}; % foreach my $report (@$reports) { % if ($report->{successgrade} eq 'PASS') { $count_pass++ } % elsif ($report->{successgrade} eq 'FAIL') { $count_fail++ } % else { $count_unknown++ } % } %#

<% $day->day_abbr %> <% $day->month_abbr %> <% $day->day %>, <% $day->year %>

All reports

<& /tapper/reports/reportlist.mas, reportlist => $reportlist &> %# Local Variables: %# buffer-file-coding-system: utf-8 %# End: