diff options
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/search/prospect_main.html | 9 | ||||
| -rw-r--r-- | httemplate/search/report_prospect_main.html | 19 |
2 files changed, 20 insertions, 8 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 ) { diff --git a/httemplate/search/report_prospect_main.html b/httemplate/search/report_prospect_main.html index 4834c2047..f2e617f88 100644 --- a/httemplate/search/report_prospect_main.html +++ b/httemplate/search/report_prospect_main.html @@ -1,4 +1,4 @@ -<% include('/elements/header.html', 'Prospect Report' ) %> +<& /elements/header.html, 'Prospect Report' &> <FORM ACTION="prospect_main.html" METHOD="GET"> @@ -8,11 +8,16 @@ <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Search options</FONT></TH> </TR> - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar($cgi->param('agentnum')), - 'disable_empty' => 0, - ) - %> + <& /elements/tr-select-agent.html, + 'curr_value' => scalar($cgi->param('agentnum')), + 'disable_empty' => 0, + &> + + <& /elements/tr-select-part_referral.html, + 'curr_value' => scalar($cgi->param('refnum')), + 'empty_label' => 'all', + 'disable_empty' => 0, + &> </TABLE> @@ -21,7 +26,7 @@ </FORM> -<% include('/elements/footer.html') %> +<& /elements/footer.html &> <%init> die "access denied" |