referral count search, RT#75757

diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm
index d668094..09558b8 100644 (file)
--- a/FS/FS/cust_main/Search.pm
+++ b/FS/FS/cust_main/Search.pm
@@ -872,10 +872,10 @@ sub search {
   ##
   # with referrals
   ##
-  if ( $params->{'with_referrals'} ) {
+  if ( $params->{'with_referrals'} =~ /^\s*(\d+)\s*$/ ) {
     push @where,
-      ' EXISTS ( SELECT 1 FROM cust_main AS referred_cust_main
-                   WHERE cust_main.custnum = referred_cust_main.referral_custnum )';
+      " $1 <= ( SELECT COUNT(*) FROM cust_main AS referred_cust_main
+                  WHERE cust_main.custnum = referred_cust_main.referral_custnum )";
   }
 
   ##

diff --git a/httemplate/search/report_cust_main.html b/httemplate/search/report_cust_main.html
index c458bb4..2a313a1 100755 (executable)
--- a/httemplate/search/report_cust_main.html
+++ b/httemplate/search/report_cust_main.html
@@ -107,6 +107,13 @@
         </TD>
       </TR>
 
+      <& /elements/tr-input-text.html,
+           label     => emt('At least this many referrals'),
+           field     => 'with_referrals',
+           size      => 4,
+           maxlength => 4,
+      &>
+
   </TABLE>
   <BR>