httemplate/view/cust_main/misc.html

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