diff options
author | ivan <ivan> | 2005-11-21 10:47:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-11-21 10:47:12 +0000 |
commit | f10cd68f08a6bfbd565a83b40bacc3f55a1265b3 (patch) | |
tree | 2f2d35fd69cc7ea44ac4801dc6fad6278d09b7c6 /FS/FS/cust_pay.pm | |
parent | 91c861a52c70f7dd67cc2b9b2705e74640957921 (diff) |
add MCRD payment type for manually processed ccards
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 3772473..f057d2f 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -62,7 +62,8 @@ L<Time::Local> and L<Date::Parse> for conversion functions. =item payby - `CARD' (credit cards), `CHEK' (electronic check/ACH), `LECB' (phone bill billing), `BILL' (billing), `PREP` (prepaid card), -`CASH' (cash), `WEST' (Western Union) or `COMP' (free) +`CASH' (cash), `WEST' (Western Union), `MCRD' (Manual credit card), or +`COMP' (free) =item payinfo - card number, check #, or comp issuer (4-8 lowercase alphanumerics; think username), respectively @@ -374,7 +375,7 @@ sub check { $self->_date(time) unless $self->_date; - $self->payby =~ /^(CARD|CHEK|LECB|BILL|COMP|PREP|CASH|WEST)$/ + $self->payby =~ /^(CARD|CHEK|LECB|BILL|COMP|PREP|CASH|WEST|MCRD)$/ or return "Illegal payby"; $self->payby($1); |