X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fprospect_main.pm;h=76faf0f2c00cc3cd03a1839d007302dff72f1485;hp=67e91cf994fc2b674bdd968736ca075496eb1882;hb=eb0ec87d37ee1548e93e35e80dfad47f48cb7563;hpb=fa70a92d28794ffd206394c8f3a4eff669369c6d

diff --git a/FS/FS/prospect_main.pm b/FS/FS/prospect_main.pm
index 67e91cf99..76faf0f2c 100644
--- a/FS/FS/prospect_main.pm
+++ b/FS/FS/prospect_main.pm
@@ -406,15 +406,18 @@ sub search {
   my @where = ();
   my $orderby;
 
-  ##
-  # parse agent
-  ##
-
+  #agent
   if ( $params->{'agentnum'} =~ /^(\d+)$/ and $1 ) {
     push @where,
       "prospect_main.agentnum = $1";
   }
 
+  #refnum
+  if ( $params->{'refnum'} =~ /^(\d+)$/ and $1 ) {
+    push @where,
+      "prospect_main.refnum = $1";
+  }
+
   ##
   # setup queries, subs, etc. for the search
   ##