From 0e9d0175f15e1de80c773e0f8b654340295ed025 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 27 Dec 2003 08:24:13 +0000
Subject: package reports by agent

---
 httemplate/search/cust_pkg.cgi | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'httemplate/search/cust_pkg.cgi')

diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi
index 74f584084..2e9dc5a22 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;
-- 
cgit v1.2.1