-%>
-
-<TR><TD></TD>
-<% foreach my $column ( @{$data->{label}} ) {
- #$column =~ s/^(\d+)\//$mon[$1-1]<BR>/e;
- $column =~ s/^(\d+)\//$mon[$1-1]<BR>/;
- %>
- <TH><%= $column %></TH>
-<% } %>
- <TH>Total</TH>
-</TR>
-
-<% foreach my $row (@items) { %>
- <TR><TH><FONT COLOR="#<%= $color{$row} %>"><%= $label{$row} %></FONT></TH>
- <% my $link = exists($link{$row})
- ? qq(<A HREF="$link{$row})
- : '';
- 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="#f5f6be">
- <%= $link ? $link. 'begin='. @{$data->{speriod}}[0]. ';end='. @{$data->{eperiod}}[-1]. '">' : '' %><FONT COLOR="#<%= $color{$row} %>">$<%= sprintf("%.2f", $total) %></FONT><%= $link ? '</A>' : '' %>
- </TD>
- </TR>
-<% } %>
-</TABLE>