%
% my( $cust_main ) = @_;
% my $conf = new FS::Conf;
% my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
%
<% ntable("#cccccc") %>
<% &ntable("#cccccc",2) %>
|
Customer number |
<% $cust_main->custnum %> |
Status |
<% ucfirst($cust_main->status) %> |
%
% my @agents = qsearch( 'agent', {} );
% my $agent;
% unless ( scalar(@agents) == 1 ) {
% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
%
Agent |
<% $agent->agentnum %>: <% $agent->agent %> |
%
% } else {
% $agent = $agents[0];
% }
%
% if ( $cust_main->agent_custid ) {
%
Agent customer ref# |
<% $cust_main->agent_custid %> |
%
% }
%
% 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 = DateTime->from_epoch(epoch => $cust_main->birthdate,
% time_zone=>'floating',
% );
Date of Birth |
<% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %> |
% }