diff options
Diffstat (limited to 'httemplate/view/prospect_main.html')
-rw-r--r-- | httemplate/view/prospect_main.html | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/httemplate/view/prospect_main.html b/httemplate/view/prospect_main.html deleted file mode 100644 index f4b2f58ee..000000000 --- a/httemplate/view/prospect_main.html +++ /dev/null @@ -1,109 +0,0 @@ -<% include('/elements/header.html', - 'Prospect View: '. $prospect_main->company - ) -%> - -% if ( $curuser->access_right('Edit prospect') ) { - <A HREF="<% $p %>edit/prospect_main.html?<% $prospectnum %>">Edit this prospect</A> -% } - -<% ntable("#cccccc",2) %> - -<TR> - <TD ALIGN="right">Prospect #</TD> - <TD BGCOLOR="#FFFFFF"><B><% $prospectnum %></B></TD> -</TR> - -%unless ( scalar(@agentnums) == 1 -% && !$curuser->access_right('View customers of all agents') ) { -% my $agent = qsearchs('agent',{ 'agentnum' => $prospect_main->agentnum } ); - <TR> - <TD ALIGN="right">Agent</TD> - <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD> - </TR> -%} - -<TR> - <TD ALIGN="right">Company</TD> - <TD BGCOLOR="#FFFFFF"><B><% $prospect_main->company |h %></B></TD> -</TR> - -% foreach my $contact ( $prospect_main->contact ) { - <TR> - <TD ALIGN="right">Contact</TD> - <TD BGCOLOR="#FFFFFF"><% $contact->line %></TD> - </TR> -%} - -% my @cust_location = -% qsearch('cust_location', { 'prospectnum' => $prospectnum } ); -% #but only one, for now -% foreach my $cust_location (@cust_location) { - <TR> - <TD ALIGN="right">Address</TD> - <TD BGCOLOR="#FFFFFF"> - <% $cust_location->location_label( - 'join_string' => '<BR>', - 'double_space' => ' ', - 'escape_function' => \&encode_entities, - ) - %> - </TD> - </TR> -% } - -</TABLE> - -<BR> - -% if ( $curuser->access_right('Qualify service') ) { -<% include( '/elements/popup_link-prospect_main.html', - 'action' => $p. 'misc/qual.html', - 'label' => 'New Qualification', - 'actionlabel' => 'New Qualification', - 'color' => '#333399', - 'prospect_main' => $prospect_main, - 'closetext' => 'Close', - 'width' => 763, - 'height' => 436, - ) -%> - | <A HREF="<%$p%>search/qual.cgi?prospectnum=<% $prospect_main->prospectnum %>">View Qualifications</A> - <BR><BR> -% } - -<% ntable("#cccccc") %> - -<TR> - <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Tickets</FONT></TH> -</TR> - -</TABLE> - -<%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; - -</%init> |