RT# 82949 - changes section name from fees to pricing, better opiton

[freeside.git] / httemplate / search / prospect_main.html

diff --git a/httemplate/search/prospect_main.html b/httemplate/search/prospect_main.html
index 328d120..0eb45f3 100644 (file)
--- a/httemplate/search/prospect_main.html
+++ b/httemplate/search/prospect_main.html
@@ -1,4 +1,4 @@
-<% include('elements/search.html',
+<& elements/search.html,
              'title'         => 'Prospect Search Results',
              'name_singular' => 'prospect',
              'query'         => $query,
@@ -6,25 +6,32 @@
              '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,
+             'disabled_statuspos' => 2,
+&>
 <%init>
 
 die "access denied"
@@ -36,7 +43,7 @@ my %search_hash = ();
 
 #scalars
 my @scalars = qw (
-  agentnum 
+  agentnum refnum
 );
 
 for my $param ( @scalars ) {