<% include('/elements/header.html', 'Prospect View: '. $prospect_main->company ) %> % if ( $curuser->access_right('Edit prospect') ) { Edit this prospect % } <% ntable("#cccccc",2) %> Prospect # <% $prospectnum %> %unless ( scalar(@agentnums) == 1 % && !$curuser->access_right('View customers of all agents') ) { % my $agent = qsearchs('agent',{ 'agentnum' => $prospect_main->agentnum } ); Agent <% $agent->agentnum %>: <% $agent->agent %> %} Company <% $prospect_main->company |h %> % foreach my $contact ( $prospect_main->contact ) { Contact <% $contact->line %> %} % my @cust_location = % qsearch('cust_location', { 'prospectnum' => $prospectnum } ); % #but only one, for now % foreach my $cust_location (@cust_location) { Address <% $cust_location->location_label( 'join_string' => '
', 'double_space' => '   ', 'escape_function' => \&encode_entities, ) %> % }
<% ntable("#cccccc") %> Tickets <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('View prospect'); my $prospectnum; if ( $cgi->param('prospectnum') =~ /^(\d+)$/ ) { $prospectnum = $1; } else { die "No prospect specified (bad URL)!" unless $cgi->keywords; my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array $query =~ /^(\d+)$/; $prospectnum = $1; } my $prospect_main = qsearchs( { 'table' => 'prospect_main', 'hashref' => { 'prospectnum' => $prospectnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }); die "Prospect not found!" unless $prospect_main; my @agentnums = $curuser->agentnums;