diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-11-07 17:33:46 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-11-07 17:33:46 -0800 |
| commit | d2f54bbc95b1a14e638ce51182f04b80c07641a6 (patch) | |
| tree | 4f966970eb29e54734ba7c0059ee1b6ad70e1d3a /FS | |
| parent | 0dab2ab0a3d7461bbe0e3a64a9f2c39649d4f5c9 (diff) | |
add advertising source selection and display to prospect report
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/prospect_main.pm | 11 |
1 files changed, 7 insertions, 4 deletions
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 ## |