X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fprospect_main.html;h=0eb45f33850ae3e0f7bf5ff5db79d922c4c0f4fe;hb=8807939a466d20893efc5655e61ac38f891d6d05;hp=241918b98bd26f4c8df1fe8012d8a755d03a6edc;hpb=167dbdad01e2c1b62fd9be43cc05212e8c874a02;p=freeside.git

diff --git a/httemplate/search/prospect_main.html b/httemplate/search/prospect_main.html
index 241918b98..0eb45f338 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',
@@ -17,10 +18,15 @@
                                           $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 ) {