%
%  my( $cust_main ) = @_;
%  my $conf = new FS::Conf;
%


<% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>

<TR>
  <TD ALIGN="right">Customer&nbsp;number</TD>
  <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD>
</TR>

<TR>
  <TD ALIGN="right">Status</TD>
  <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
</TR>
%
%  my @agents = qsearch( 'agent', {} );
%  my $agent;
%  unless ( scalar(@agents) == 1 ) {
%    $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
%


<TR>
  <TD ALIGN="right">Agent</TD>
  <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
</TR>
%
%  } else {
%    $agent = $agents[0];
%  }
%
%  if ( $cust_main->agent_custid ) {
%


<TR>
  <TD ALIGN="right">Agent customer ref#</TD>
  <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
</TR>
%
%  }
%
%  unless ( FS::part_referral->num_part_referral == 1 ) {
%    my $referral = qsearchs('part_referral', {
%      'refnum' => $cust_main->refnum
%    } );
%


<TR>
  <TD ALIGN="right">Advertising&nbsp;source</TD>
  <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
</TR>
% } 


<TR>
  <TD ALIGN="right">Referring&nbsp;Customer</TD>
  <TD BGCOLOR="#ffffff">
%
%  my $referring_cust_main = '';
%  if ( $cust_main->referral_custnum
%       && ( $referring_cust_main =
%            qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
%          )
%     ) {
%


<A HREF="<% popurl(1) %>cust_main.cgi?<% $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
  )
%></A>
% } 


  </TD>
</TR>

<TR>
  <TD ALIGN="right">Order taker</TD>
  <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
</TR>

</TABLE></TD></TR></TABLE>