${r}Expiration | !.
% ''.
@@ -192,7 +168,7 @@
% 'end_year' => (localtime())[5] + 1900,
% 'selected_date' => (
% ( $payby =~ /^(CARD|DCRD)$/
-% && cardtype($paymask) =~ /^(Switch|Solo)$/ )
+% && cardtype($payinfo) =~ /^(Switch|Solo)$/ )
% ? $cust_main->paystart_month. '-'.
% $cust_main->paystart_year
% : ''
@@ -214,10 +190,13 @@
% ''.
%
% qq!${r}Account number | !.
-% qq! | '.
+% qq! | '.
+% qq!Type | | !.
%
% qq!${r}ABA/Routing number | !.
-% qq! !.
+% qq! | !.
% qq!(help)!.
% qq! | !.
%
@@ -225,9 +204,22 @@
% qq!!.
%
% qq!${r}Bank name | !.
-% qq! | !.
+% qq! | !.
+% ( $conf->exists('show_bankstate') ?
+% qq!$paystate_label | !.
+% qq!!.
+% include('select-state.html',
+% 'empty' => '(choose)',
+% 'state' => $cust_main->paystate,
+% 'country' => $cust_main->country,
+% 'prefix' => 'pay',
+% ). " | "
+% : ''
+% ).
%
-% qq! Charge future payments to this electronic check automatically | '.
+%
+% qq! Charge future payments to this electronic check automatically | '.
%
% ' | '.
% ' | '.
@@ -240,7 +232,7 @@
% ''.
%
% qq!${r}Phone number | !.
-% qq! | !.
+% qq! | !.
%
% qq!!.
% qq!!.
@@ -260,7 +252,7 @@
% ''.
%
% qq!P.O. | !.
-% qq! | !.
+% qq! | !.
%
% qq!!.
% qq!!.
@@ -404,6 +396,8 @@
tax eq "Y" ? 'CHECKED' : '' %>> Tax Exempt |
+% unless ( $conf->exists('emailinvoiceonly') ) {
+
|
+% }
+
Email invoice |
|
-% if ( $conf->exists('voip-cust_cdr_spools') ) {
+
+ Invoice terms |
+
+
+ |
+
+
+% if ( $conf->exists('voip-cust_cdr_spools') ) {
spool_cdr eq "Y" ? 'CHECKED' : '' %>> Spool CDRs |
@@ -443,7 +453,6 @@
% }
-
@@ -451,4 +460,23 @@
<% $r %> required fields
% }
+<%once>
+
+my $paystate_label = FS::Msgcat::_gettext('paystate');
+$paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
+
+%once>
+<%init>
+
+my( $cust_main, %options ) = @_;
+my @invoicing_list = @{ $options{'invoicing_list'} };
+my $payinfo = $options{'payinfo'};
+my $conf = new FS::Conf;
+my $payby_default = $conf->config('payby-default');
+
+my @payby = grep /\w/, $conf->config('payby');
+#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
+@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
+ unless @payby;
+%init>
|