From 446fb74f2f31d48dd303c9a52105d40f11079e10 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sun, 25 Jan 2015 21:43:32 -0800 Subject: [PATCH] manual echeck payment type, RT#26995 --- FS/FS/cust_main/Billing_ThirdParty.pm | 6 +++++- 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 ); -- 2.11.0