<% my( $cust_main ) = @_; %> <%= ntable("#cccccc") %><%= &ntable("#cccccc",2) %> Customer number <%= $cust_main->custnum %> <% my @agents = qsearch( 'agent', {} ); my $agent; unless ( scalar(@agents) == 1 ) { $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); %> Agent <%= $agent->agentnum %>: <%= $agent->agent %> <% } else { $agent = $agents[0]; } my @referrals = qsearch( 'part_referral', {} ); unless ( scalar(@referrals) == 1 ) { my $referral = qsearchs('part_referral', { 'refnum' => $cust_main->refnum } ); %> Advertising source <%= $referral->refnum %>: <%= $referral->referral%> <% } %> Order taker <%= $cust_main->otaker %> Referring Customer <% my $referring_cust_main = ''; if ( $cust_main->referral_custnum && ( $referring_cust_main = qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) ) ) { %> <%=$cust_main->referral_custnum %>: <%= ( $referring_cust_main->company ? $referring_cust_main->company. ' ('. $referring_cust_main->last. ', '. $referring_cust_main->first. ')' : $referring_cust_main->last. ', '. $referring_cust_main->first ) %> <% } %>