add a total column

[freeside.git] / httemplate / graph / money_time.cgi
diff --git a/httemplate/graph/money_time.cgi b/httemplate/graph/money_time.cgi

index 1c7d542..9c0a94f 100644 (file)
--- a/httemplate/graph/money_time.cgi
+++ b/httemplate/graph/money_time.cgi
@@ -12,13 +12,23 @@ my $smonth = $cgi->param('smonth') || $curmon+1;
  my $eyear = $cgi->param('eyear') || 1900+$curyear;
  my $emonth = $cgi->param('emonth') || $curmon+1;
  
+#XXX or virtual
+my( $agentnum, $agent ) = ('', '');
+if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
+  $agentnum = $1;
+  $agent = qsearchs('agent', { 'agentnum' => $agentnum } );
+  die "agentnum $agentnum not found!" unless $agent;
+}
+my $agentname = $agent ? $agent->agent.' ' : '';
+warn $agentname;
+
+%>
+
+<%= include('/elements/header.html',
+              $agentname. 'Sales, Credits and Receipts Summary'
+           )
  %>
  
-<HTML>
-  <HEAD>
-    <TITLE>Sales, Credits and Receipts Summary</TITLE>
-  </HEAD>
-<BODY BGCOLOR="#e8e8e8">
  <IMG SRC="money_time-graph.cgi?<%= $cgi->query_string %>" WIDTH="976" HEIGHT="384">
  <BR>
  
@@ -41,9 +51,9 @@ my %color = (
    'receipts' => '00cc00', #green
  );
  my %link = (
-  'invoiced' => "${p}search/cust_bill.html?",
-  'credits'  => "${p}search/cust_credit.html?",
-  'payments' => "${p}search/cust_pay.cgi?magic=_date;",
+  'invoiced' => "${p}search/cust_bill.html?agentnum=$agentnum;",
+  'credits'  => "${p}search/cust_credit.html?agentnum=$agentnum;",
+  'payments' => "${p}search/cust_pay.cgi?magic=_date;agentnum=$agentnum;",
  );
  
  my $report = new FS::Report::Table::Monthly (
@@ -52,6 +62,7 @@ my $report = new FS::Report::Table::Monthly (
    'start_year'  => $syear,
    'end_month'   => $emonth,
    'end_year'    => $eyear,
+  'agentnum'    => $agentnum,
  );
  my $data = $report->data;
  
@@ -66,6 +77,7 @@ my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
       %>
       <TH><%= $column %></TH>
  <% } %>
+  <TH>Total</TH>
  </TR>
  
  <% foreach my $row (@items) { %>
@@ -75,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 $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><%= sprintf("%.2f", $total) %>
    </TR>
  <% } %>
  </TABLE>
@@ -119,6 +134,8 @@ From <SELECT NAME="smonth">
  <% } %>
  </SELECT>
  
+for agent: <%= include('/elements/select-agent.html', $agentnum) %>
+
  <INPUT TYPE="submit" VALUE="Redisplay">
  </FORM>
  </BODY>