diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-01-25 21:43:32 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-01-25 21:43:32 -0800 |
| commit | 446fb74f2f31d48dd303c9a52105d40f11079e10 (patch) | |
| tree | 8c4147b25e44d1a243032f6d7027605d562ba492 | |
| parent | 7b777a5bf7fcdb0f966e3789e00f646febedc60c (diff) | |
manual echeck payment type, RT#26995
| -rw-r--r-- | FS/FS/cust_main/Billing_ThirdParty.pm | 6 | ||||
| -rw-r--r-- | FS/FS/cust_payby.pm | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/cust_main/Billing_ThirdParty.pm b/FS/FS/cust_main/Billing_ThirdParty.pm index faced8f2b..a1d19fb9e 100644 --- a/FS/FS/cust_main/Billing_ThirdParty.pm +++ b/FS/FS/cust_main/Billing_ThirdParty.pm @@ -36,7 +36,11 @@ to that URL. =cut my @methods = qw(PAYPAL CC); -my %method2payby = ( 'PAYPAL' => 'PPAL', 'CC' => 'MCRD' ); +my %method2payby = ( 'PAYPAL' => 'PPAL', + 'CC' => 'MCRD', #? but doesn't MCRD mean _offline_ + #card, not third-party card? but no + #one is doing non-paypal right now + ); sub create_payment { my $self = shift; diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm index 42bf64a3e..ad3d80a20 100644 --- a/FS/FS/cust_payby.pm +++ b/FS/FS/cust_payby.pm @@ -353,7 +353,7 @@ sub check { if ( $self->paydate eq '' || $self->paydate eq '-' ) { return "Expiration date required" # shouldn't payinfo_check do this? - unless $self->payby =~ /^(BILL|PREPAY|CHEK|DCHK|LECB|CASH|WEST|MCRD|PPAL)$/; + unless $self->payby =~ /^(BILL|PREPAY|CHEK|DCHK|LECB|CASH|WEST|MCRD|MCHK|PPAL)$/; $self->paydate(''); } else { my( $m, $y ); |