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