1 <TABLE CLASS="fsinnerbox">
4 <TD ALIGN="right"><% mt('Customer number') |h %></TD>
5 <TD BGCOLOR="#ffffff"><% $cust_main->display_custnum %></TD>
9 <TD ALIGN="right"><% mt('Status') |h %></TD>
10 <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% $status_label %></B></FONT></TD>
13 % my @part_tag = $cust_main->part_tag;
14 % if ( $conf->config('cust_tag-location') =~ /^(cust_misc|)$/ && @part_tag ) {
16 <TD ALIGN="right"><% mt('Tags') |h %></TD>
17 <TD BGCOLOR="#ffffff">
18 % foreach my $part_tag ( @part_tag ) {
19 <FONT <% length($part_tag->tagcolor)
20 ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
22 ><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
29 %unless ( scalar(@agentnums) == 1
30 % && !$curuser->access_right('View customers of all agents') ) {
31 % my $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
33 <TD ALIGN="right"><% mt('Agent') |h %></TD>
34 <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
38 % if ( $cust_main->agent_custid
39 % && ! $conf->exists('cust_main-default_agent_custid') ) {
42 <TD ALIGN="right"><% mt('Agent customer ref#') |h %></TD>
43 <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
48 % #if ( $cust_main->classnum ) {
50 <TD ALIGN="right"><% mt('Class') |h %></TD>
51 <TD BGCOLOR="#ffffff"><% $cust_main->classname || '('.emt('none').')' %></TD>
55 % if ( $cust_main->salesnum ) {
57 <TD ALIGN="right"><% mt('Sales Person') |h %></TD>
58 <TD BGCOLOR="#ffffff"><% $cust_main->salesperson |h %></TD>
62 % unless ( FS::part_referral->num_part_referral == 1 ) {
63 % my $referral = qsearchs('part_referral', {
64 % 'refnum' => $cust_main->refnum
68 <TD ALIGN="right"><% mt('Advertising source') |h %></TD>
69 <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
75 <TD ALIGN="right"><% mt('Referring Customer') |h %></TD>
76 <TD BGCOLOR="#ffffff">
78 % my $referring_cust_main = '';
79 % if ( $cust_main->referral_custnum
80 % && ( $referring_cust_main =
81 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
87 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$referring_cust_main->display_custnum %>:
89 ( $referring_cust_main->company
90 ? $referring_cust_main->company. ' ('.
91 $referring_cust_main->last. ', '. $referring_cust_main->first.
93 : $referring_cust_main->last. ', '. $referring_cust_main->first
103 <TD ALIGN="right"><% mt('Order taker') |h %></TD>
104 <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
108 <TD ALIGN="right"><% mt('Signup Date') |h %></TD>
109 <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
112 % my $id_country = $conf->config('national_id-country');
113 % if ( $id_country ) {
114 % if ( $id_country eq 'MY' ) {
116 % my($old, $nric) = ( '', '');
117 % if ( $cust_main->national_id =~ /^\d{6}\-\d{2}\-\d{4}$/ ) {
118 <TD ALIGN="right"><% mt('NRIC') |h %></TD>
119 % } else { # elsif ( $cust_main->national_id =~ /^\w\d{9}$/ ) {
120 <TD ALIGN="right"><% mt('Old IC/Passport') |h %></TD>
122 % # warn "unknown national_id format";
123 %# <TD ALIGN="right"></TD>
125 <TD BGCOLOR="#ffffff"><% $cust_main->national_id |h %></TD>
128 % warn "unknown national_id-country $id_country";
132 % if ( $conf->exists('cust_main-enable_birthdate') ) {
133 % my $dt = $cust_main->birthdate ne ''
134 % ? DateTime->from_epoch( 'epoch' => $cust_main->birthdate,
135 % 'time_zone' =>'floating',
140 <TD ALIGN="right"><% mt('Date of Birth') |h %></TD>
141 <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
144 % if ( $conf->exists('cust_main-enable_spouse')
145 % and $cust_main->spouse_birthdate ) {
146 % my $dt = DateTime->from_epoch(
147 % 'epoch' => $cust_main->spouse_birthdate,
148 % 'time_zone' =>'floating'
152 <TD ALIGN="right"><% mt('Spouse Date of Birth') |h %></TD>
153 <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
157 % } # enable_birthdate
159 % if ( $conf->exists('cust_main-enable_anniversary_date') ) {
160 % my $dt = $cust_main->anniversary_date ne ''
161 % ? DateTime->from_epoch( 'epoch' => $cust_main->anniversary_date,
162 % 'time_zone' =>'floating',
167 <TD ALIGN="right"><% mt('Anniversary Date') |h %></TD>
168 <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
173 % if ( $cust_main->district ) {
176 <TD ALIGN="right"><% mt('Tax district') |h %></TD>
177 <TD BGCOLOR="#ffffff"><% $cust_main->ship_location->district %></TD>
183 % if ( $conf->exists('ticket_system-selfservice_edit_subject') ) {
186 <TD ALIGN="right"><% mt('Edit ticket subjects') %></TD>
187 <TD BGCOLOR="#ffffff"><% $cust_main->edit_subject ? 'yes' : 'no' %></TD>
192 % foreach (sort { $a cmp $b } $cust_main->virtual_fields) {
193 <% $cust_main->pvf($_)->widget('HTML', 'view', $cust_main->getfield($_)) %>
199 my( $cust_main ) = @_;
200 my $conf = new FS::Conf;
201 my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
203 my $curuser = $FS::CurrentUser::CurrentUser;
205 my @agentnums = $curuser->agentnums;
207 my $status_label = ucfirst($cust_main->status);
208 if ($cust_main->is_status_delay_cancel) {
209 $status_label .= ' (Cancelled)';