5 <%= ntable("#cccccc") %><TR><TD><%= &ntable("#cccccc",2) %>
7 <TD ALIGN="right">Customer number</TD>
8 <TD BGCOLOR="#ffffff"><%= $cust_main->custnum %></TD>
12 my @agents = qsearch( 'agent', {} );
14 unless ( scalar(@agents) == 1 ) {
15 $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
19 <TD ALIGN="right">Agent</TD>
20 <TD BGCOLOR="#ffffff"><%= $agent->agentnum %>: <%= $agent->agent %></TD>
28 my @referrals = qsearch( 'part_referral', {} );
29 unless ( scalar(@referrals) == 1 ) {
30 my $referral = qsearchs('part_referral', {
31 'refnum' => $cust_main->refnum
36 <TD ALIGN="right">Advertising source</TD>
37 <TD BGCOLOR="#ffffff"><%= $referral->refnum %>: <%= $referral->referral%></TD>
43 <TD ALIGN="right">Order taker</TD>
44 <TD BGCOLOR="#ffffff"><%= $cust_main->otaker %></TD>
47 <TD ALIGN="right">Referring Customer</TD>
48 <TD BGCOLOR="#ffffff">
51 my $referring_cust_main = '';
52 if ( $cust_main->referral_custnum
53 && ( $referring_cust_main =
54 qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
59 <A HREF="<%= popurl(1) %>cust_main.cgi?<%= $cust_main->referral_custnum %>"><%=$cust_main->referral_custnum %>:
61 ( $referring_cust_main->company
62 ? $referring_cust_main->company. ' ('.
63 $referring_cust_main->last. ', '. $referring_cust_main->first.
65 : $referring_cust_main->last. ', '. $referring_cust_main->first
74 </TABLE></TD></TR></TABLE>