diff options
author | Mark Wells <mark@freeside.biz> | 2013-04-25 14:45:49 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-04-25 14:46:10 -0700 |
commit | a1a0800de7c69fe5ee414b79e408ceacd4a1c2c3 (patch) | |
tree | 92589a379a7bd3925139779ad0b0d5cd55df6152 /FS/FS/cust_main.pm | |
parent | f3e0ac2b009c4edd5692cb587ff709dac2223ebe (diff) |
changes to support PayPal, #22395
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 2a4602e19..1cf036551 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -390,7 +390,7 @@ sub insert { $payby = 'PREP' if $amount; - } elsif ( $self->payby =~ /^(CASH|WEST|MCRD)$/ ) { + } elsif ( $self->payby =~ /^(CASH|WEST|MCRD|PPAL)$/ ) { $payby = $1; $self->payby('BILL'); @@ -2021,7 +2021,8 @@ sub check { if ( $self->paydate eq '' || $self->paydate eq '-' ) { return "Expiration date required" - unless $self->payby =~ /^(BILL|PREPAY|CHEK|DCHK|LECB|CASH|WEST|MCRD)$/; + # shouldn't payinfo_check do this? + unless $self->payby =~ /^(BILL|PREPAY|CHEK|DCHK|LECB|CASH|WEST|MCRD|PPAL)$/; $self->paydate(''); } else { my( $m, $y ); |