1 <% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
4 <TD ALIGN="right">Customer number</TD>
5 <TD BGCOLOR="#ffffff"><% $cust_main->display_custnum %></TD>
9 <TD ALIGN="right">Status</TD>
10 <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
13 %unless ( scalar(@agentnums) == 1
14 % && !$curuser->access_right('View customers of all agents') ) {
15 % my $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
17 <TD ALIGN="right">Agent</TD>
18 <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
22 % if ( $cust_main->agent_custid
23 % && ! $conf->exists('cust_main-default_agent_custid') ) {
26 <TD ALIGN="right">Agent customer ref#</TD>
27 <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
32 % #if ( $cust_main->classnum ) {
34 <TD ALIGN="right">Class</TD>
35 <TD BGCOLOR="#ffffff"><% $cust_main->classname || '(none)' %></TD>
39 % unless ( FS::part_referral->num_part_referral == 1 ) {
40 % my $referral = qsearchs('part_referral', {
41 % 'refnum' => $cust_main->refnum
45 <TD ALIGN="right">Advertising source</TD>
46 <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
52 <TD ALIGN="right">Referring Customer</TD>
53 <TD BGCOLOR="#ffffff">
55 % my $referring_cust_main = '';
56 % if ( $cust_main->referral_custnum
57 % && ( $referring_cust_main =
58 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
64 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
66 ( $referring_cust_main->company
67 ? $referring_cust_main->company. ' ('.
68 $referring_cust_main->last. ', '. $referring_cust_main->first.
70 : $referring_cust_main->last. ', '. $referring_cust_main->first
80 <TD ALIGN="right">Order taker</TD>
81 <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
85 <TD ALIGN="right">Signup Date</TD>
86 <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
89 % if ( $conf->exists('cust_main-enable_birthdate') ) {
90 % my $dt = $cust_main->birthdate ne ''
91 % ? DateTime->from_epoch( 'epoch' => $cust_main->birthdate,
92 % 'time_zone' =>'floating',
97 <TD ALIGN="right">Date of Birth</TD>
98 <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
103 % if ( $conf->exists('cust_main-require_censustract') ) {
106 <TD ALIGN="right">Census tract</TD>
107 <TD BGCOLOR="#ffffff"><% $cust_main->censustract %></TD>
112 </TABLE></TD></TR></TABLE>
115 my( $cust_main ) = @_;
116 my $conf = new FS::Conf;
117 my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
119 my $curuser = $FS::CurrentUser::CurrentUser;
121 my @agentnums = $curuser->agentnums;