httemplate/view/cust_main/misc.html

   1 %
   2 %  my( $cust_main ) = @_;
   3 %  my $conf = new FS::Conf;
   4 %
   5
   6
   7 <% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
   8
   9 <TR>
  10   <TD ALIGN="right">Customer&nbsp;number</TD>
  11   <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD>
  12 </TR>
  13
  14 <TR>
  15   <TD ALIGN="right">Status</TD>
  16   <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
  17 </TR>
  18 %
  19 %  my @agents = qsearch( 'agent', {} );
  20 %  my $agent;
  21 %  unless ( scalar(@agents) == 1 ) {
  22 %    $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
  23 %
  24
  25
  26 <TR>
  27   <TD ALIGN="right">Agent</TD>
  28   <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
  29 </TR>
  30 %
  31 %  } else {
  32 %    $agent = $agents[0];
  33 %  }
  34 %
  35 %  if ( $cust_main->agent_custid ) {
  36 %
  37
  38
  39 <TR>
  40   <TD ALIGN="right">Agent customer ref#</TD>
  41   <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
  42 </TR>
  43 %
  44 %  }
  45 %
  46 %  unless ( FS::part_referral->num_part_referral == 1 ) {
  47 %    my $referral = qsearchs('part_referral', {
  48 %      'refnum' => $cust_main->refnum
  49 %    } );
  50 %
  51
  52
  53 <TR>
  54   <TD ALIGN="right">Advertising&nbsp;source</TD>
  55   <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
  56 </TR>
  57 % }
  58
  59
  60 <TR>
  61   <TD ALIGN="right">Referring&nbsp;Customer</TD>
  62   <TD BGCOLOR="#ffffff">
  63 %
  64 %  my $referring_cust_main = '';
  65 %  if ( $cust_main->referral_custnum
  66 %       && ( $referring_cust_main =
  67 %            qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
  68 %          )
  69 %     ) {
  70 %
  71
  72
  73 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
  74 <%
  75   ( $referring_cust_main->company
  76       ? $referring_cust_main->company. ' ('.
  77           $referring_cust_main->last. ', '. $referring_cust_main->first.
  78           ')'
  79       : $referring_cust_main->last. ', '. $referring_cust_main->first
  80   )
  81 %></A>
  82 % }
  83
  84
  85   </TD>
  86 </TR>
  87
  88 <TR>
  89   <TD ALIGN="right">Order taker</TD>
  90   <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
  91 </TR>
  92
  93 </TABLE></TD></TR></TABLE>
  94