httemplate/view/cust_main/misc.html

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