diff options
| author | ivan <ivan> | 2002-11-19 22:48:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-11-19 22:48:04 +0000 |
| commit | 21f1c14056d3afb44ff109d4ddc8b0d78cf4daf5 (patch) | |
| tree | 613578f39e7d2159e5f46996bf041fd42c959ea1 /FS | |
| parent | 13f7c884d121b04bcdfdf77aa01222047ef89ddb (diff) | |
Business::OnlinePayment type is ECHECK not CHECK
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_bill.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 609158b89..f3fe10fec 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -646,7 +646,7 @@ for supported processors. sub realtime_ach { my $self = shift; $self->realtime_bop( - 'CHECK', + 'ECHECK', $ach_processor, $ach_login, $ach_password, @@ -687,7 +687,7 @@ sub realtime_bop { $address .= ", ". $cust_main->address2 if $cust_main->address2; my($payname, $payfirst, $paylast); - if ( $cust_main->payname && $method ne 'CHECK' ) { + if ( $cust_main->payname && $method ne 'ECHECK' ) { $payname = $cust_main->payname; $payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/ or do { @@ -731,7 +731,7 @@ sub realtime_bop { $content{card_number} = $cust_main->payinfo; $cust_main->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; $content{expiration} = "$2/$1"; - } elsif ( $method eq 'CHECK' ) { + } elsif ( $method eq 'ECHECK' ) { my($account_number,$routing_code) = $cust_main->payinfo; ( $content{account_number}, $content{routing_code} ) = split('@', $cust_main->payinfo); @@ -812,9 +812,9 @@ sub realtime_bop { if ( $transaction->is_success() ) { my %method2payby = ( - 'CC' => 'CARD', - 'CHECK' => 'CHEK', - 'LEC' => 'LECB', + ' CC' => 'CARD', + 'ECHECK' => 'CHEK', + 'LEC' => 'LECB', ); my $cust_pay = new FS::cust_pay ( { @@ -1213,7 +1213,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.41.2.10 2002-11-19 10:09:44 ivan Exp $ +$Id: cust_bill.pm,v 1.41.2.11 2002-11-19 22:48:04 ivan Exp $ =head1 BUGS |