httemplate/view/cust_main/misc.html

   1 <TABLE CLASS="fsinnerbox">
   2
   3 <TR>
   4   <TD ALIGN="right"><% mt('Customer number') |h %></TD>
   5   <TD BGCOLOR="#ffffff"><% $cust_main->display_custnum %></TD>
   6 </TR>
   7
   8 <TR>
   9   <TD ALIGN="right"><% mt('Status') |h %></TD>
  10   <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
  11 </TR>
  12
  13 % my @part_tag = $cust_main->part_tag;
  14 % if ( $conf->config('cust_tag-location') =~ /^(cust_misc|)$/ && @part_tag ) {
  15 <TR>
  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.'"'
  21                  : '' %>
  22       ><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
  23       <BR>
  24 %   }
  25   </TD>
  26 </TR>
  27 % }
  28
  29 %unless ( scalar(@agentnums) == 1
  30 %         && !$curuser->access_right('View customers of all agents')  ) {
  31 %  my $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
  32    <TR>
  33      <TD ALIGN="right"><% mt('Agent') |h %></TD>
  34      <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
  35    </TR>
  36 % }
  37
  38 %  if ( $cust_main->agent_custid
  39 %       && ! $conf->exists('cust_main-default_agent_custid') ) {
  40
  41 <TR>
  42   <TD ALIGN="right"><% mt('Agent customer ref#') |h %></TD>
  43   <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
  44 </TR>
  45 %
  46 %  }
  47
  48 %  #if ( $cust_main->classnum ) {
  49      <TR>
  50        <TD ALIGN="right"><% mt('Class') |h %></TD>
  51        <TD BGCOLOR="#ffffff"><% $cust_main->classname || '('.emt('none').')' %></TD>
  52      </TR>
  53 %  #}
  54
  55 %  unless ( FS::part_referral->num_part_referral == 1 ) {
  56 %    my $referral = qsearchs('part_referral', {
  57 %      'refnum' => $cust_main->refnum
  58 %    } );
  59
  60 <TR>
  61   <TD ALIGN="right"><% mt('Advertising source') |h %></TD>
  62   <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
  63 </TR>
  64 % }
  65
  66
  67 <TR>
  68   <TD ALIGN="right"><% mt('Referring Customer') |h %></TD>
  69   <TD BGCOLOR="#ffffff">
  70 %
  71 %  my $referring_cust_main = '';
  72 %  if ( $cust_main->referral_custnum
  73 %       && ( $referring_cust_main =
  74 %            qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
  75 %          )
  76 %     ) {
  77 %
  78
  79
  80 <A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$referring_cust_main->display_custnum %>:
  81 <%
  82   ( $referring_cust_main->company
  83       ? $referring_cust_main->company. ' ('.
  84           $referring_cust_main->last. ', '. $referring_cust_main->first.
  85           ')'
  86       : $referring_cust_main->last. ', '. $referring_cust_main->first
  87   )
  88 %></A>
  89 % }
  90
  91
  92   </TD>
  93 </TR>
  94
  95 <TR>
  96   <TD ALIGN="right"><% mt('Order taker') |h %></TD>
  97   <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
  98 </TR>
  99
 100   <TR>
 101     <TD ALIGN="right"><% mt('Signup Date') |h %></TD>
 102     <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
 103   </TR>
 104
 105 % my $id_country = $conf->config('national_id-country');
 106 %  if ( $id_country ) {
 107 %   if ( $id_country eq 'MY' ) {
 108       <TR>
 109 %     my($old, $nric) = ( '', '');
 110 %     if ( $cust_main->national_id =~ /^\w\d{9}$/ ) {
 111           <TD ALIGN="right"><% mt('Old IC/Passport') |h %></TD>
 112 %     } elsif ( $cust_main->national_id =~ /^\d{6}\-\d{2}\-\d{4}$/ ) {
 113           <TD ALIGN="right"><% mt('NRIC') |h %></TD>
 114 %     } else {
 115 %       warn "unknown national_id format";
 116           <TD ALIGN="right"></TD>
 117 %     }
 118         <TD BGCOLOR="#ffffff"><% $cust_main->national_id |h %></TD>
 119       </TR>
 120 %   } else {
 121 %     warn "unknown national_id-country $id_country";
 122 %   }
 123 % }
 124
 125 % if ( $conf->exists('cust_main-enable_birthdate') ) {
 126 %   my $dt = $cust_main->birthdate ne ''
 127 %              ? DateTime->from_epoch( 'epoch'     => $cust_main->birthdate,
 128 %                                      'time_zone' =>'floating',
 129 %                                    )
 130 %              : '';
 131
 132   <TR>
 133     <TD ALIGN="right"><% mt('Date of Birth') |h %></TD>
 134     <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
 135   </TR>
 136
 137 % }
 138
 139 % if ( $conf->exists('cust_main-enable_spouse_birthdate') ) {
 140 %   my $dt = $cust_main->spouse_birthdate ne ''
 141 %              ? DateTime->from_epoch( 'epoch'  => $cust_main->spouse_birthdate,
 142 %                                      'time_zone' =>'floating',
 143 %                                    )
 144 %              : '';
 145
 146   <TR>
 147     <TD ALIGN="right"><% mt('Spouse Date of Birth') |h %></TD>
 148     <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
 149   </TR>
 150
 151 % }
 152
 153 % if ( $conf->exists('cust_main-enable_anniversary_date') ) {
 154 %   my $dt = $cust_main->anniversary_date ne ''
 155 %              ? DateTime->from_epoch( 'epoch'  => $cust_main->anniversary_date,
 156 %                                      'time_zone' =>'floating',
 157 %                                    )
 158 %              : '';
 159
 160   <TR>
 161     <TD ALIGN="right"><% mt('Anniversary Date') |h %></TD>
 162     <TD BGCOLOR="#ffffff"><% $dt ? $dt->strftime($date_format) : '' %></TD>
 163   </TR>
 164
 165 % }
 166
 167 % if ( $conf->exists('cust_main-require_censustract') ) {
 168
 169   <TR>
 170     <TD ALIGN="right">
 171       <% mt('Census tract ([_1])', $cust_main->ship_location->censusyear) |h %>
 172     </TD>
 173     <TD BGCOLOR="#ffffff"><% $cust_main->ship_location->censustract  %></TD>
 174   </TR>
 175
 176 % }
 177
 178 % if ( $cust_main->district ) {
 179
 180   <TR>
 181     <TD ALIGN="right"><% mt('Tax district') |h %></TD>
 182     <TD BGCOLOR="#ffffff"><% $cust_main->ship_location->district %></TD>
 183   </TR>
 184
 185 % }
 186
 187
 188 % if ( $conf->exists('ticket_system-selfservice_edit_subject') ) {
 189
 190   <TR>
 191     <TD ALIGN="right"><% mt('Edit ticket subjects') %></TD>
 192     <TD BGCOLOR="#ffffff"><% $cust_main->edit_subject ? 'yes' : 'no' %></TD>
 193   </TR>
 194
 195 % }
 196
 197 % foreach (sort { $a cmp $b } $cust_main->virtual_fields) {
 198     <% $cust_main->pvf($_)->widget('HTML', 'view', $cust_main->getfield($_)) %>
 199 % }
 200
 201 </TABLE>
 202 <%init>
 203
 204 my( $cust_main ) = @_;
 205 my $conf = new FS::Conf;
 206 my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
 207
 208 my $curuser = $FS::CurrentUser::CurrentUser;
 209
 210 my @agentnums = $curuser->agentnums;
 211
 212 </%init>