2 % my( $cust_main ) = @_;
3 % my $conf = new FS::Conf;
4 % my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
8 <% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
11 <TD ALIGN="right">Customer number</TD>
12 <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD>
16 <TD ALIGN="right">Status</TD>
17 <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
20 % my @agents = qsearch( 'agent', {} );
22 % unless ( scalar(@agents) == 1 ) {
23 % $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
28 <TD ALIGN="right">Agent</TD>
29 <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
33 % $agent = $agents[0];
36 % if ( $cust_main->agent_custid ) {
41 <TD ALIGN="right">Agent customer ref#</TD>
42 <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
47 % unless ( FS::part_referral->num_part_referral == 1 ) {
48 % my $referral = qsearchs('part_referral', {
49 % 'refnum' => $cust_main->refnum
55 <TD ALIGN="right">Advertising source</TD>
56 <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
62 <TD ALIGN="right">Referring Customer</TD>
63 <TD BGCOLOR="#ffffff">
65 % my $referring_cust_main = '';
66 % if ( $cust_main->referral_custnum
67 % && ( $referring_cust_main =
68 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
74 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
76 ( $referring_cust_main->company
77 ? $referring_cust_main->company. ' ('.
78 $referring_cust_main->last. ', '. $referring_cust_main->first.
80 : $referring_cust_main->last. ', '. $referring_cust_main->first
90 <TD ALIGN="right">Order taker</TD>
91 <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
95 <TD ALIGN="right">Signup Date</TD>
96 <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
99 % if ( $conf->exists('cust_main-enable_birthdate') ) {
100 % my $dt = DateTime->from_epoch(epoch => $cust_main->birthdate,
101 % time_zone=>'floating',
105 <TD ALIGN="right">Date of Birth</TD>
106 <TD BGCOLOR="#ffffff"><% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %></TD>
111 </TABLE></TD></TR></TABLE>