2 % my( $cust_main ) = @_;
3 % my $conf = new FS::Conf;
7 <% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
10 <TD ALIGN="right">Customer number</TD>
11 <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD>
15 <TD ALIGN="right">Status</TD>
16 <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
19 % my @agents = qsearch( 'agent', {} );
21 % unless ( scalar(@agents) == 1 ) {
22 % $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
27 <TD ALIGN="right">Agent</TD>
28 <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
32 % $agent = $agents[0];
35 % if ( $cust_main->agent_custid ) {
40 <TD ALIGN="right">Agent customer ref#</TD>
41 <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
46 % unless ( FS::part_referral->num_part_referral == 1 ) {
47 % my $referral = qsearchs('part_referral', {
48 % 'refnum' => $cust_main->refnum
54 <TD ALIGN="right">Advertising source</TD>
55 <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
61 <TD ALIGN="right">Referring Customer</TD>
62 <TD BGCOLOR="#ffffff">
64 % my $referring_cust_main = '';
65 % if ( $cust_main->referral_custnum
66 % && ( $referring_cust_main =
67 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
73 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
75 ( $referring_cust_main->company
76 ? $referring_cust_main->company. ' ('.
77 $referring_cust_main->last. ', '. $referring_cust_main->first.
79 : $referring_cust_main->last. ', '. $referring_cust_main->first
89 <TD ALIGN="right">Order taker</TD>
90 <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
93 </TABLE></TD></TR></TABLE>