1 <FONT CLASS="fsinnerbox-title"><% mt('Miscellaneous information') |h %></FONT>
2 <TABLE CLASS="fsinnerbox">
4 % my @part_tag = $cust_main->part_tag;
5 % if ( $conf->config('cust_tag-location') =~ /^(cust_misc|)$/ && @part_tag ) {
7 <TH ALIGN="right"><% mt('Tags') |h %></TH>
9 % foreach my $part_tag ( @part_tag ) {
10 <FONT <% length($part_tag->tagcolor)
11 ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
13 ><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
20 % if ( $cust_main->agent_custid
21 % && ! $conf->exists('cust_main-default_agent_custid') ) {
24 <TH ALIGN="right"><% mt('Agent customer ref#') |h %></TH>
25 <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
30 % #if ( $cust_main->classnum ) {
32 <TH ALIGN="right"><% mt('Class') |h %></TH>
33 <TD><% $cust_main->classname || '('.emt('none').')' %></TD>
37 % if ( $cust_main->salesnum ) {
39 <TH ALIGN="right"><% mt('Sales Person') |h %></TH>
40 <TD><% $cust_main->salesperson |h %></TD>
44 % unless ( FS::part_referral->num_part_referral == 1 ) {
45 % my $referral = qsearchs('part_referral', {
46 % 'refnum' => $cust_main->refnum
50 <TH ALIGN="right"><% mt('Advertising source') |h %></TH>
51 <TD><% $referral->refnum %>: <% $referral->referral%></TD>
57 <TH ALIGN="right"><% mt('Referring Customer') |h %></TH>
60 % my $referring_cust_main = '';
61 % if ( $cust_main->referral_custnum
62 % && ( $referring_cust_main =
63 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
69 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$referring_cust_main->display_custnum %>:
71 ( $referring_cust_main->company
72 ? $referring_cust_main->company. ' ('.
73 $referring_cust_main->last. ', '. $referring_cust_main->first.
75 : $referring_cust_main->last. ', '. $referring_cust_main->first
85 <TH ALIGN="right"><% mt('Order taker') |h %></TH>
86 <TD><% $cust_main->otaker %></TD>
90 <TH ALIGN="right"><% mt('Signup Date') |h %></TH>
91 <TD><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
94 % my $id_country = $conf->config('national_id-country');
95 % if ( $id_country ) {
96 % if ( $id_country eq 'MY' ) {
98 % my($old, $nric) = ( '', '');
99 % if ( $cust_main->national_id =~ /^\d{6}\-\d{2}\-\d{4}$/ ) {
100 <TH ALIGN="right"><% mt('NRIC') |h %></TH>
101 % } else { # elsif ( $cust_main->national_id =~ /^\w\d{9}$/ ) {
102 <TH ALIGN="right"><% mt('Old IC/Passport') |h %></TH>
104 % # warn "unknown national_id format";
105 %# <TH ALIGN="right"></TH>
107 <TD><% $cust_main->national_id |h %></TD>
110 % warn "unknown national_id-country $id_country";
114 % if ( $conf->exists('cust_main-enable_birthdate') ) {
115 % my $dt = $cust_main->birthdate ne ''
116 % ? DateTime->from_epoch( 'epoch' => $cust_main->birthdate,
117 % 'time_zone' =>'floating',
122 <TH ALIGN="right"><% mt('Date of Birth') |h %></TH>
123 <TD><% $dt ? $dt->strftime($date_format) : '' %></TD>
126 % if ( $conf->exists('cust_main-enable_spouse')
127 % and $cust_main->spouse_birthdate ) {
128 % my $dt = DateTime->from_epoch(
129 % 'epoch' => $cust_main->spouse_birthdate,
130 % 'time_zone' =>'floating'
134 <TH ALIGN="right"><% mt('Spouse Date of Birth') |h %></TH>
135 <TD><% $dt ? $dt->strftime($date_format) : '' %></TD>
139 % } # enable_birthdate
141 % if ( $conf->exists('cust_main-enable_anniversary_date') ) {
142 % my $dt = $cust_main->anniversary_date ne ''
143 % ? DateTime->from_epoch( 'epoch' => $cust_main->anniversary_date,
144 % 'time_zone' =>'floating',
149 <TH ALIGN="right"><% mt('Anniversary Date') |h %></TH>
150 <TD><% $dt ? $dt->strftime($date_format) : '' %></TD>
155 % if ( $cust_main->district ) {
158 <TH ALIGN="right"><% mt('Tax district') |h %></TH>
159 <TD><% $cust_main->ship_location->district %></TD>
165 % if ( $conf->exists('ticket_system-selfservice_edit_subject') ) {
168 <TH ALIGN="right"><% emt('Edit ticket subjects') %></TH>
169 <TD><% $cust_main->edit_subject ? 'yes' : 'no' %></TD>
174 % foreach (sort { $a cmp $b } $cust_main->virtual_fields) {
175 <% $cust_main->pvf($_)->widget('HTML', 'view', $cust_main->getfield($_), 'TH') %>
181 my( $cust_main ) = @_;
182 my $conf = new FS::Conf;
183 my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
185 my $curuser = $FS::CurrentUser::CurrentUser;
187 my @agentnums = $curuser->agentnums;
189 my $status_label = $cust_main->status_label;
190 if ($cust_main->is_status_delay_cancel) {
191 $status_label .= ' (Cancelled)';