<% ntable("#cccccc") %>| <% &ntable("#cccccc",2) %>
|
| Customer number |
<% $cust_main->display_custnum %> |
| Status |
<% ucfirst($cust_main->status) %> |
%my $agent;
%if ( $num_agents == 1 ) {
% my @agents = qsearchs( 'agent', {} );
% $agent = $agents[0];
%} else {
% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
| Agent |
<% $agent->agentnum %>: <% $agent->agent %> |
% }
% if ( $cust_main->agent_custid
% && ! $conf->exists('cust_main-default_agent_custid') ) {
| Agent customer ref# |
<% $cust_main->agent_custid %> |
%
% }
% #if ( $cust_main->classnum ) {
| Class |
<% $cust_main->classname || '(none)' %> |
% #}
% unless ( FS::part_referral->num_part_referral == 1 ) {
% my $referral = qsearchs('part_referral', {
% 'refnum' => $cust_main->refnum
% } );
| Advertising source |
<% $referral->refnum %>: <% $referral->referral%> |
% }
| Referring Customer |
%
% my $referring_cust_main = '';
% if ( $cust_main->referral_custnum
% && ( $referring_cust_main =
% qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
% )
% ) {
%
<%$cust_main->referral_custnum %>:
<%
( $referring_cust_main->company
? $referring_cust_main->company. ' ('.
$referring_cust_main->last. ', '. $referring_cust_main->first.
')'
: $referring_cust_main->last. ', '. $referring_cust_main->first
)
%>
% }
|
| Order taker |
<% $cust_main->otaker %> |
| Signup Date |
<% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %> |
% if ( $conf->exists('cust_main-enable_birthdate') ) {
% my $dt = $cust_main->birthdate ne ''
% ? DateTime->from_epoch( 'epoch' => $cust_main->birthdate,
% 'time_zone' =>'floating',
% )
% : '';
| Date of Birth |
<% $dt ? $dt->strftime($date_format) : '' %> |
% }
% if ( $conf->exists('cust_main-require_censustract') ) {
| Census tract |
<% $cust_main->censustract %> |
% }
<%init>
my( $cust_main ) = @_;
my $conf = new FS::Conf;
my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
my $sth = dbh->prepare('SELECT COUNT(*) FROM agent') or die dbh->errstr;
$sth->execute or die $sth->errstr;
my $num_agents = $sth->fetchrow_arrayref->[0];