%>
<TH><%= $column %></TH>
<% } %>
+ <TH>Total</TH>
</TR>
<% foreach my $row (@items) { %>
: '';
my @speriod = @{$data->{speriod}};
my @eperiod = @{$data->{eperiod}};
+ my $total = 0;
%>
<% foreach my $column ( @{$data->{$row}} ) { %>
<TD ALIGN="right" BGCOLOR="#ffffff">
<%= $link ? $link. 'begin='. shift(@speriod). ';end='. shift(@eperiod). '">' : '' %><FONT COLOR="#<%= $color{$row} %>">$<%= sprintf("%.2f", $column) %></FONT><%= $link ? '</A>' : '' %>
</TD>
+ <% $total += $column; %>
<% } %>
+ <TD ALIGN="right" BGCOLOR="#eeeeee">
+ <%= $link ? $link. 'begin='. @{$data->{speriod}}[0]. ';end='. @{$data->{speriod}}[0]. '">' : '' %><FONT COLOR="#<%= $color{$row} %>">$<%= sprintf("%.2f", $total) %></FONT><%= $link ? '</A>' : '' %>
+ </TD>
</TR>
<% } %>
</TABLE>