X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fprospect_main.html;h=0eb45f33850ae3e0f7bf5ff5db79d922c4c0f4fe;hb=8807939a466d20893efc5655e61ac38f891d6d05;hp=4798f58f2809ca2e663b1f96c97a82cb1a7065ea;hpb=d2acdd4d53071f9e0f9718e14532cb009cda1a85;p=freeside.git diff --git a/httemplate/search/prospect_main.html b/httemplate/search/prospect_main.html index 4798f58f2..0eb45f338 100644 --- a/httemplate/search/prospect_main.html +++ b/httemplate/search/prospect_main.html @@ -6,21 +6,27 @@ 'header' => [ '#', 'Prospect', 'Contact(s)', + 'Advertising source', ], 'fields' => [ 'prospectnum', 'name', sub { my $pm = shift; [ map { - [ { 'data' => $_->line, }, ]; + [ { 'data'=>$_->contact->line, }, ]; } - $pm->contact + $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 +43,7 @@ my %search_hash = (); #scalars my @scalars = qw ( - agentnum + agentnum refnum ); for my $param ( @scalars ) {