add a total column

diff --git a/httemplate/graph/money_time.cgi b/httemplate/graph/money_time.cgi
index 874f58b..9c0a94f 100644 (file)
--- a/httemplate/graph/money_time.cgi
+++ b/httemplate/graph/money_time.cgi
@@ -77,6 +77,7 @@ my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
      %>
      <TH><%= $column %></TH>
 <% } %>
      %>
      <TH><%= $column %></TH>
 <% } %>

+  <TH>Total</TH>

 </TR>
 
 <% foreach my $row (@items) { %>
 </TR>
 
 <% foreach my $row (@items) { %>


@@ -86,12 +87,15 @@ my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
        : '';
      my @speriod = @{$data->{speriod}};
      my @eperiod = @{$data->{eperiod}};
        : '';
      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>
   %>
   <% 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><%= sprintf("%.2f", $total) %>

   </TR>
 <% } %>
 </TABLE>
   </TR>
 <% } %>
 </TABLE>