diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-11-07 17:33:44 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-11-07 17:33:44 -0800 |
commit | eb0ec87d37ee1548e93e35e80dfad47f48cb7563 (patch) | |
tree | 837e3c89ab4faac2bb3b7650bee8a76fda48eb72 /httemplate/search/prospect_main.html | |
parent | fa70a92d28794ffd206394c8f3a4eff669369c6d (diff) |
add advertising source selection and display to prospect report
Diffstat (limited to 'httemplate/search/prospect_main.html')
-rw-r--r-- | httemplate/search/prospect_main.html | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/httemplate/search/prospect_main.html b/httemplate/search/prospect_main.html index 241918b98..d65d4d19d 100644 --- a/httemplate/search/prospect_main.html +++ b/httemplate/search/prospect_main.html @@ -6,6 +6,7 @@ 'header' => [ '#', 'Prospect', 'Contact(s)', + 'Advertising source', ], 'fields' => [ 'prospectnum', 'name', @@ -16,11 +17,17 @@ } $pm->prospect_contact ]; + '' + }, + sub { + my $pr = shift->part_referral; + $pr ? $pr->referral : ''; }, ], 'links' => [ '', $link, '', #link to contact edit??? + '', ], 'agent_virt' => 1, 'disableable' => 1, @@ -37,7 +44,7 @@ my %search_hash = (); #scalars my @scalars = qw ( - agentnum + agentnum refnum ); for my $param ( @scalars ) { |