<% ntable("#cccccc") %>| <% &ntable("#cccccc",2) %>
|
| Customer number |
<% $cust_main->display_custnum %> |
| Status |
<% ucfirst($cust_main->status) %> |
% my @part_tag = $cust_main->part_tag;
% if ( $conf->config('cust_tag-location') =~ /^(cust_misc|)$/ && @part_tag ) {
| Tags |
% foreach my $part_tag ( @part_tag ) {
tagcolor)
? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
: '' %>
><% $part_tag->tagname.': '. $part_tag->tagdesc |h %>
% }
|
% }
%unless ( scalar(@agentnums) == 1
% && !$curuser->access_right('View customers of all agents') ) {
% my $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 $curuser = $FS::CurrentUser::CurrentUser;
my @agentnums = $curuser->agentnums;