!.
qq!invoicing_list;
+ #my @invoicing_list = $cust_main->invoicing_list;
print qq! CHECKED!
if ( ! @invoicing_list && ! $conf->exists('disablepostalinvoicedefault') )
|| grep { $_ eq 'POST' } @invoicing_list;
@@ -398,19 +407,29 @@ if ( $payby_default eq 'HIDE' ) {
);
my %payby = (
- 'CARD' => qq!Credit card ${r} ${r}Exp !. expselect("CARD"). qq! ${r}Name on card !,
- 'BILL' => qq!Billing P.O. ${r}Exp !. expselect("BILL", "12-2037"). qq! Attention !,
+ 'CARD' => qq!Credit card (automatic) ${r} ${r}Exp !. expselect("CARD"). qq! ${r}Name on card !,
+ 'DCRD' => qq!Credit card (on-demand) ${r} ${r}Exp !. expselect("DCRD"). qq! ${r}Name on card !,
+ 'CHEK' => qq!Electronic check (automatic) ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand) ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
+ 'LECB' => qq!Phone bill billing ${r}Phone number !,
+ 'BILL' => qq!Billing P.O. Attention !,
'COMP' => qq!Complimentary ${r}Approved by ${r}Exp !. expselect("COMP"),
);
+ my( $account, $aba ) = split('@', $payinfo);
+
my %paybychecked = (
- 'CARD' => qq!Credit card ${r} ${r}Exp !. expselect("CARD", $cust_main->paydate). qq! ${r}Name on card !,
- 'BILL' => qq!Billing P.O. ${r}Exp !. expselect("BILL", $cust_main->paydate). qq! Attention !,
+ 'CARD' => qq!Credit card (automatic) ${r} ${r}Exp !. expselect("CARD", $cust_main->paydate). qq! ${r}Name on card !,
+ 'DCRD' => qq!Credit card (on-demand) ${r} ${r}Exp !. expselect("DCRD", $cust_main->paydate). qq! ${r}Name on card !,
+ 'CHEK' => qq!Electronic check (automatic) ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
+ 'DCHK' => qq!Electronic check (on-demand) ${r}Account number ${r}ABA/Routing code ${r}Bank name !,
+ 'LECB' => qq!Phone bill billing ${r}Phone number !,
+ 'BILL' => qq!Billing P.O. Attention !,
'COMP' => qq!Complimentary ${r}Approved by ${r}Exp !. expselect("COMP", $cust_main->paydate),
);
$cust_main->payby($payby_default) unless $cust_main->payby;
- for (qw(CARD BILL COMP)) {
+ for (qw(CARD DCRD CHEK DCHK LECB BILL COMP)) {
print qq! | payby eq "$_") {
print qq! CHECKED> $paybychecked{$_} | !;