%  my $r = qq!<font color="#ff0000">*</font>&nbsp;!;

  <SCRIPT>

    function tax_changed(what) {
      var num = document.getElementById(what.id + '_num'); 
      if ( what.checked ) {
        num.disabled = false;
      } else {
        num.disabled = true;
      }
    }
    
  </SCRIPT>

  <BR><FONT CLASS="fsinnerbox-title"><% mt('Billing information') |h %></FONT>

  <TABLE CLASS="fsinnerbox">

%   my $curuser = $FS::CurrentUser::CurrentUser;

%   ###
%   # complimentry flag
%   ###

%   if ( $curuser->access_right('Complimentary customer') ) {

    <& /elements/tr-checkbox.html,
      field       => 'complimentary',
      label       => emt('Complimentary customer'),
      value       => 'Y',
      curr_value  => $cust_main->complimentary,
      box_first   => 1,
    &>

%   } else {

      <INPUT TYPE="hidden" NAME="complimentary" VALUE="<% $cust_main->complimentary eq 'Y' ? 'Y' : '' %>">

%   }

%   ###
%   # tax exemptions
%   ###

%   my @exempt_groups = grep /\S/, $conf->config('tax-cust_exempt-groups');
%   if (    $conf->exists('cust_class-tax_exempt')
%        || $conf->exists('tax-cust_exempt-groups-require_individual_nums')
%        || $conf->config('tax-cust_exempt-groups-num_req') =~ /\w/
%        || ! $curuser->access_right('Edit customer tax exemptions')
%      )
%   {

      <INPUT TYPE="hidden" NAME="tax" VALUE="<% $cust_main->tax eq 'Y' ? 'Y' : '' %>">

%   } else {

    <& /elements/tr-checkbox.html,
      field       => 'tax',
      label       => emt('Tax Exempt' . (scalar(@exempt_groups) ? '(all taxes)' : '') ),
      value       => 'Y',
      curr_value  => $cust_main->tax,
      box_first   => 1,
    &>

%   }

%   if ( $curuser->access_right('Edit customer tax exemptions') ) {
%     foreach my $exempt_group ( @exempt_groups ) {
%       my $cust_main_exemption = $cust_main->tax_exemption($exempt_group);
%       #escape $exempt_group for NAME etc.
%       my $checked = ($cust_main_exemption || $cgi->param("tax_$exempt_group"));
        <TR>
          <TD STYLE="white-space:nowrap">&nbsp;&nbsp;<INPUT TYPE="checkbox" NAME="tax_<% $exempt_group %>" ID="tax_<% $exempt_group %>" VALUE="Y" <% $checked ? 'CHECKED' : '' %> onChange="tax_changed(this)"> Tax Exempt (<% $exempt_group %> taxes)</TD>
          <TD> - Exemption number <INPUT TYPE="text" NAME="tax_<% $exempt_group %>_num" ID="tax_<% $exempt_group %>_num" VALUE="<% $cgi->param("tax_$exempt_group".'_num') || ( $cust_main_exemption ? $cust_main_exemption->exempt_number : '' ) |h %>" <% $checked ? '' : 'DISABLED' %>></TD>
        </TR>
%     } #"
%   }

%   ###
%   # postal invoices
%   ###

% unless ( $conf->exists('emailinvoiceonly') ) {

    <& /elements/tr-checkbox.html,
      field       => 'postal_invoice',
      label       => emt('Postal mail invoices'),
      value       => 'Y',
      curr_value  => $cust_main->postal_invoice,
      box_first   => 1,
    &>

% }

%   ###
%   # email invoices
%   ###

    <& /elements/tr-checkbox.html,
      field       => 'invoice_noemail',
      label       => emt('Do not send email invoices'),
      value       => 'Y',
      curr_value  => $cust_main->invoice_noemail,
      box_first   => 1,
    &>

    <& /elements/tr-checkbox.html,
      field       => 'message_noemail',
      label       => emt('Do not send other email notices'),
      value       => 'Y',
      curr_value  => $cust_main->message_noemail,
      box_first   => 1,
    &>

%   ###
%   # prorate_day
%   ###

% if ( $conf->exists('cust_main-select-prorate_day') ) {
    <TR>
      <TH ALIGN="right" WIDTH="200"><% mt('Prorate day') |h %> </TD>
      <TD>
        <SELECT NAME="prorate_day">
          <% prorate_day_options($cust_main->prorate_day) %>
        </SELECT>
        <& /elements/checkbox.html,
          field       => 'force_prorate_day',
          value       => 'Y',
          curr_value  => $cust_main->force_prorate_day
        &>
        <label><% emt('Force all packages to this day') %></label>
      </TD>
    </TR>

%   sub prorate_day_options {
%     my $curr_value = shift;
%     my $ret = '';
%     for my $prorate_day ( 1 .. 28 ) {
%       my $sel = '';
%       $sel = "SELECTED='SELECTED'" if $curr_value == $prorate_day;
%       $ret .= "<OPTION VALUE='$prorate_day' $sel>$prorate_day</OPTION>";
%     }
%     $ret;
%    }

% } else {
    <INPUT TYPE="hidden" NAME="prorate_day" VALUE="<% $cust_main->prorate_day %>">
% }

%   ###
%   # billday
%   ###

    <TR>
      <TH ALIGN="right" WIDTH="200"><% mt('Charge card/e-check on this day of the month') |h %> </TD>
      <TD>
        <SELECT NAME="billday">
          <% billday_options($cust_main->billday) %>
        </SELECT>
      </TD>
    </TR>

%  sub billday_options {
%   my $curr_value = shift;
%   my $ret = '';
%   for my $billday ( 1 .. 28 ) {
%       my $sel = '';
%       $sel = "SELECTED='SELECTED'" if $curr_value == $billday;
%       $ret .= "<OPTION VALUE='$billday' $sel>$billday</OPTION>";
%   }
%   $ret;
%  }

%   ###
%   # invoice_terms
%   ###

    <TR>
      <TH ALIGN="right" WIDTH="200"><% mt('Invoice terms') |h %> </TD>
      <TD WIDTH="408">
        <& /elements/select-terms.html,
             'curr_value' => $cust_main->invoice_terms,
             'agentnum'   => $cust_main->agentnum,
        &>
      </TD>
    </TR>

%   ###
%   # credit_limit
%   ###

    <TR>
      <TH ALIGN="right" WIDTH="200"><% mt('Credit limit') |h %> </TD>
      <TD WIDTH="408">
        <SCRIPT TYPE="text/javascript">
function toggle(obj) {
  obj.form.credit_limit.disabled = obj.checked;
}
        </SCRIPT>
        <INPUT TYPE  = "text"
               NAME  = "credit_limit"
               VALUE = "<% sprintf('%.2f', $cust_main->credit_limit) %>"
               <% length($cust_main->credit_limit) ? '' : ' DISABLED' %>
        >
%       my $default_credit_limit = $conf->config('default_credit_limit');
        <INPUT TYPE  = "checkbox"
               NAME  = "no_credit_limit"
               VALUE = 1
               onClick="toggle(this)"
               <% length($cust_main->credit_limit) ? '' : ' CHECKED'%>
        > <FONT SIZE="-1" COLOR="#333333">
          <% $default_credit_limit
               ? "Default ($money_char". sprintf("%.2f", $default_credit_limit).
                 ")"
               : mt('Unlimited')
            |h
          %>
          </FONT> 
      </TD>
    </TR>

%   ###
%   # CDR flags / options
%   ###

% if ( $conf->exists('voip-cust_cdr_squelch') ) { 
      <TR>
       <TD COLSPAN="2"><INPUT TYPE="checkbox" NAME="squelch_cdr" VALUE="Y" <% $cust_main->squelch_cdr eq "Y" ? 'CHECKED' : '' %>> <% mt($conf->exists('voip-cdr_email') ? 'Omit CDRs from printed invoices' : 'Omit CDRs from invoices') |h %></TD>
      </TR>
% } else { 
      <INPUT TYPE="hidden" NAME="squelch_cdr" VALUE="<% $cust_main->squelch_cdr %>">
% }

% if ( my $attach = $conf->config('voip-cdr_email_attach') ) {
      <TR>
       <TD COLSPAN="2"><INPUT TYPE="checkbox" NAME="email_csv_cdr" VALUE="Y" <% $cust_main->email_csv_cdr eq "Y" ? 'CHECKED' : '' %>> <% mt('Attach CDRs as '. uc($attach). ' to emailed invoices') |h %></TD>
      </TR>
% } else { 
      <INPUT TYPE="hidden" NAME="email_csv_cdr" VALUE="<% $cust_main->email_csv_cdr %>">
% }

% if ( $conf->exists('voip-cust_accountcode_cdr') ) { 
       <TR>
        <TD COLSPAN="2">
            <INPUT TYPE="checkbox" 
                   NAME="accountcode_cdr" 
                   VALUE="Y" 
                   <% $cust_main->accountcode_cdr eq "Y" ? 'CHECKED' : '' %>
            > <% mt('Breakdown CDRs by accountcode') |h %></TD>
       </TR>
% } else { 
       <INPUT TYPE="hidden" NAME="accountcode_cdr" VALUE="<% $cust_main->accountcode_cdr %>">
% }

% if ( $show_term || $cust_main->cdr_termination_percentage ) {
      <TR>
       <TH ALIGN="right"><% mt('CDR termination settlement') |h %></TD>
       <TD><INPUT TYPE  = "text"
                  NAME  = "cdr_termination_percentage"
                  SIZE  = 6
                  VALUE = "<% $cust_main->cdr_termination_percentage %>"
                  STYLE = "text-align:right;"
        ><B>%</B></TD>
      </TR>
% } else {
      <INPUT TYPE="hidden" NAME="cdr_termination_percentage" VALUE="<% $cust_main->cdr_termination_percentage %>">
% }

%   ###
%   # Invoicing currency
%   ###

%my @currencies = $conf->config('currencies');
%if ( scalar(@currencies) ) {
%  unshift @currencies, ''; #default
%  my %currency_labels = map { $_ => "$_: ". code2currency($_) } @currencies;
%  $currency_labels{''} =
%    'Default: '. code2currency( $conf->config('currency') || 'USD' );

    <& /elements/tr-select.html, 
         'label'         => emt('Invoicing currency'),
         'field'         => 'currency',
         'options'       => \@currencies,
         'labels'        => \%currency_labels,
         'curr_value'    => $cust_main->currency,
    &>
% }

%   ###
%   # Invoicing locale
%   ###

%my @available_locales = $conf->config('available-locales');
%if ( scalar(@available_locales) ) {
%  push @available_locales, ''
%    unless $cust_main->locale && $conf->exists('cust_main-require_locale');
%  my %locale_labels = map { 
%    my %ll;
%    my %info = FS::Locales->locale_info($_);
%    $ll{$_} = $info{name} . " (" . $info{country} . ")";
%    %ll;
%  } FS::Locales->locales;
%    
%  my $label = ( $conf->exists('cust_main-require_locale') ? $r : '' ).
%              emt('Invoicing locale');

    <& /elements/tr-select.html, 
         'label'         => $label,
         'field'         => 'locale',
         'options'       => \@available_locales,
         'labels'        => \%locale_labels,
         'curr_value'    => $cust_main->locale,
    &>
% }

  </TABLE>
  <BR>

  <FONT CLASS="fsinnerbox-title"><% mt('Payment information') |h %></FONT>
  <& cust_payby.html, 'cust_main'=>$cust_main, &>  

<%init>

my( $cust_main, %options ) = @_;
my @invoicing_list = @{ $options{'invoicing_list'} };
my $conf = new FS::Conf;

my $money_char = $conf->config('money_char') || '$';

my $show_term = '';
if ( $cust_main->custnum ) {
  #false laziness w/view/cust_main/billing.html
  my $term_sql = "SELECT COUNT(*) FROM cust_pkg LEFT JOIN part_pkg USING ( pkgpart ) WHERE custnum = ? AND plan = 'cdr_termination' LIMIT 1";
  my $term_sth = dbh->prepare($term_sql)  or die dbh->errstr;
  $term_sth->execute($cust_main->custnum) or die $term_sth->errstr;
  $show_term = $term_sth->fetchrow_arrayref->[0];
}

my $agentnum = $cust_main->agentnum if $cust_main->custnum;

</%init>