diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-01-25 21:44:54 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-01-25 21:44:54 -0800 |
| commit | 8d953e7c2f94dc007d94da74650d27c5a74cc792 (patch) | |
| tree | e1eff75da8cd34030b43988db867372bd782a480 /FS/FS/cust_main.pm | |
| parent | 446fb74f2f31d48dd303c9a52105d40f11079e10 (diff) | |
manual echeck payment type, RT#26995
Diffstat (limited to 'FS/FS/cust_main.pm')
| -rw-r--r-- | FS/FS/cust_main.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 294546c..9f95620 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -400,7 +400,7 @@ sub insert { $payby = 'PREP' if $amount; - } elsif ( $self->payby =~ /^(CASH|WEST|MCRD|PPAL)$/ ) { + } elsif ( $self->payby =~ /^(CASH|WEST|MCRD|MCHK|PPAL)$/ ) { $payby = $1; $self->payby('BILL'); @@ -3074,6 +3074,7 @@ Old-style: =cut +#super false laziness w/quotation::charge sub charge { my $self = shift; my ( $amount, $setup_cost, $quantity, $start_date, $classnum ); |