From 8468ce6abd28b145bfde14a210a166cca46115dc Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Tue, 7 Dec 2010 20:38:52 +0000
Subject: added prospect support to qualifications, RT7111

---
 httemplate/search/qual.cgi | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'httemplate/search')

diff --git a/httemplate/search/qual.cgi b/httemplate/search/qual.cgi
index 58e011406..0bb455b3c 100755
--- a/httemplate/search/qual.cgi
+++ b/httemplate/search/qual.cgi
@@ -73,6 +73,10 @@ my $extra_sql = '';
 if ( $cgi->param('custnum') && $cgi->param('custnum') =~ /^(\d+)$/ ) {
     $extra_sql = " where custnum = $1 or locationnum in "
 	    . " (select locationnum from cust_location where custnum = $1)";
+} elsif ( $cgi->param('prospectnum') 
+	&& $cgi->param('prospectnum') =~ /^(\d+)$/ ) {
+    $extra_sql = " where prospectnum = $1 or locationnum in "
+	    . " (select locationnum from cust_location where prospectnum = $1)";
 }
 
 </%init>
-- 
cgit v1.2.1