From abc64a997eeacdc95988296889754d708aa97cad Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 27 Dec 2003 08:23:38 +0000
Subject: [PATCH] package reports by agent

---
 httemplate/index.html                                   |  2 +-
 httemplate/search/cust_pkg.cgi                          |  6 ++++++
 .../search/{cust_pkg.html => cust_pkg_report.cgi}       | 17 +++++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)
 rename httemplate/search/{cust_pkg.html => cust_pkg_report.cgi} (72%)

diff --git a/httemplate/index.html b/httemplate/index.html
index d863f3f3e..d024de0bf 100644
--- a/httemplate/index.html
+++ b/httemplate/index.html
@@ -56,7 +56,7 @@
       <BR><FORM ACTION="search/cust_main.cgi" METHOD="POST">Credit card # <INPUT TYPE="hidden" NAME="card_on" VALUE="1"><INPUT TYPE="text" NAME="card"><INPUT TYPE="submit" VALUE="Search"></FORM>
       <FORM ACTION="search/cust_bill.cgi" METHOD="POST">Invoice # <INPUT TYPE="text" NAME="invnum" SIZE="8"><INPUT TYPE="submit" VALUE="Search"></FORM>
       <FORM ACTION="search/cust_pay.cgi" METHOD="POST">Check # <INPUT TYPE="text" NAME="payinfo" SIZE="8"><INPUT TYPE="hidden" NAME="payby" VALUE="BILL"><INPUT TYPE="submit" VALUE="Search"></FORM>
-      <BR><A HREF="browse/cust_pay_batch.cgi">View pending credit card batch</A>      <BR><BR><A HREF="search/cust_pkg.html">Packages (by next bill date range)</A>
+      <BR><A HREF="browse/cust_pay_batch.cgi">View pending credit card batch</A>      <BR><BR><A HREF="search/cust_pkg_report.cgi">Packages (by next bill date range)</A>
       <BR><BR>Invoice reports
             <UL>
               <LI><a href="search/cust_bill_event.html">Invoice event errors (failed credit cards)</a>
diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi
index 3c3e17864..c2f6272c4 100755
--- a/httemplate/search/cust_pkg.cgi
+++ b/httemplate/search/cust_pkg.cgi
@@ -35,6 +35,12 @@ if ( $cgi->param('magic') && $cgi->param('magic') eq 'bill' ) {
 
   $range .= ( $range ? 'AND ' : ' WHERE ' ). '( cancel IS NULL OR cancel = 0 )';
 
+  if ( $cgi->param('agentnum') =~ /^(\d+)$/ and $1 ) {
+    $range .= ( $range ? 'AND ' : ' WHERE ' ). 
+              "$1 = ( SELECT agentnum FROM cust_main".
+                    " WHERE cust_main.custnum = cust_pkg.custnum )";
+  }
+
   #false laziness with below
   my $statement = "SELECT COUNT(*) FROM cust_pkg $range";
   warn $statement;
diff --git a/httemplate/search/cust_pkg.html b/httemplate/search/cust_pkg_report.cgi
similarity index 72%
rename from httemplate/search/cust_pkg.html
rename to httemplate/search/cust_pkg_report.cgi
index 0dad83a2a..b31674540 100755
--- a/httemplate/search/cust_pkg.html
+++ b/httemplate/search/cust_pkg_report.cgi
@@ -36,6 +36,23 @@
   });
 </SCRIPT>
         </TR>
+<% my %agent_search = dbdef->table('agent')->column('disabled')
+                        ? ( 'disabled' => '' ) : ();
+   my @agents = qsearch( 'agent', \%agent_search );
+   if ( scalar(@agents) == 1 ) {
+%>
+     <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $agents[0]->agentnum %>">
+<% } else { %>
+
+        <TR>
+          <TD ALIGN="right">Agent: </TD>
+          <TD><SELECT NAME="agentnum"><OPTION VALUE="">(all)
+          <% foreach my $agent ( sort { $a->agent cmp $b->agent; } @agents) { %>
+            <OPTION VALUE="<%= $agent->agentnum %>"><%= $agent->agent %>
+          <% } %>
+          </TD>
+        </TR>
+<% } %>
       </TABLE>
       <BR><INPUT TYPE="submit" VALUE="Get Report">
 
-- 
2.11.0