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 % my @part_tag = $cust_main->part_tag;
  14 % if ( $conf->config('cust_tag-location') =~ /^(cust_misc|)$/ && @part_tag ) {
  15 <TR>
  16   <TD ALIGN="right">Tags</TD>
  17   <TD BGCOLOR="#ffffff">
  18 %   foreach my $part_tag ( @part_tag ) {
  19       <FONT <% length($part_tag->tagcolor)
  20                  ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
  21                  : '' %>
  22       ><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
  23       <BR>
  24 %   }
  25   </TD>
  26 </TR>
  27 % }
  28
  29 %my $agent;
  30 %if ( $num_agents == 1 ) {
  31 %  my @agents = qsearchs( 'agent', {} );
  32 %  $agent = $agents[0];
  33 %} else {
  34 %  $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
  35    <TR>
  36      <TD ALIGN="right">Agent</TD>
  37      <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
  38    </TR>
  39 % }
  40
  41 %  if ( $cust_main->agent_custid
  42 %       && ! $conf->exists('cust_main-default_agent_custid') ) {
  43
  44 <TR>
  45   <TD ALIGN="right">Agent customer ref#</TD>
  46   <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
  47 </TR>
  48 %
  49 %  }
  50 %
  51 %  unless ( FS::part_referral->num_part_referral == 1 ) {
  52 %    my $referral = qsearchs('part_referral', {
  53 %      'refnum' => $cust_main->refnum
  54 %    } );
  55 %
  56
  57
  58 <TR>
  59   <TD ALIGN="right">Advertising&nbsp;source</TD>
  60   <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
  61 </TR>
  62 % }
  63
  64
  65 <TR>
  66   <TD ALIGN="right">Referring&nbsp;Customer</TD>
  67   <TD BGCOLOR="#ffffff">
  68 %
  69 %  my $referring_cust_main = '';
  70 %  if ( $cust_main->referral_custnum
  71 %       && ( $referring_cust_main =
  72 %            qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
  73 %          )
  74 %     ) {
  75 %
  76
  77
  78 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
  79 <%
  80   ( $referring_cust_main->company
  81       ? $referring_cust_main->company. ' ('.
  82           $referring_cust_main->last. ', '. $referring_cust_main->first.
  83           ')'
  84       : $referring_cust_main->last. ', '. $referring_cust_main->first
  85   )
  86 %></A>
  87 % }
  88
  89
  90   </TD>
  91 </TR>
  92
  93 <TR>
  94   <TD ALIGN="right">Order taker</TD>
  95   <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
  96 </TR>
  97
  98   <TR>
  99     <TD ALIGN="right">Signup Date</TD>
 100     <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
 101   </TR>
 102
 103 % if ( $conf->exists('cust_main-enable_birthdate') ) {
 104 %   my $dt = $cust_main->birthdate ne ''
 105 %              ? DateTime->from_epoch( 'epoch'     => $cust_main->birthdate,
 106 %                                      'time_zone' =>'floating',
 107 %                                    )
 108 %              : '';
 109
 110   <TR>
 111     <TD ALIGN="right">Date of Birth</TD>
 112     <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
 113   </TR>
 114
 115 % }
 116
 117 % if ( $conf->exists('cust_main-require_censustract') ) {
 118
 119   <TR>
 120     <TD ALIGN="right">Census tract</TD>
 121     <TD BGCOLOR="#ffffff"><% $cust_main->censustract  %></TD>
 122   </TR>
 123
 124 % }
 125
 126 </TABLE></TD></TR></TABLE>
 127 <%init>
 128
 129 my( $cust_main ) = @_;
 130 my $conf = new FS::Conf;
 131 my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
 132
 133 my $sth = dbh->prepare('SELECT COUNT(*) FROM agent') or die dbh->errstr;
 134 $sth->execute or die $sth->errstr;
 135 my $num_agents = $sth->fetchrow_arrayref->[0];
 136
 137 </%init>