projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bf79e18
)
Business::OnlinePayment type is ECHECK not CHECK
author
ivan
<ivan>
Tue, 19 Nov 2002 22:48:02 +0000
(22:48 +0000)
committer
ivan
<ivan>
Tue, 19 Nov 2002 22:48:02 +0000
(22:48 +0000)
FS/FS/cust_bill.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
3e93778
..
75e2b17
100644
(file)
--- a/
FS/FS/cust_bill.pm
+++ b/
FS/FS/cust_bill.pm
@@
-627,7
+627,7
@@
for supported processors.
sub realtime_ach {
my $self = shift;
$self->realtime_bop(
sub realtime_ach {
my $self = shift;
$self->realtime_bop(
- 'CHECK',
+ '
E
CHECK',
$ach_processor,
$ach_login,
$ach_password,
$ach_processor,
$ach_login,
$ach_password,
@@
-668,7
+668,7
@@
sub realtime_bop {
$address .= ", ". $cust_main->address2 if $cust_main->address2;
my($payname, $payfirst, $paylast);
$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 '
E
CHECK' ) {
$payname = $cust_main->payname;
$payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
or do {
$payname = $cust_main->payname;
$payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
or do {
@@
-712,7
+712,7
@@
sub realtime_bop {
$content{card_number} = $cust_main->payinfo;
$cust_main->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
$content{expiration} = "$2/$1";
$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 '
E
CHECK' ) {
my($account_number,$routing_code) = $cust_main->payinfo;
( $content{account_number}, $content{routing_code} ) =
split('@', $cust_main->payinfo);
my($account_number,$routing_code) = $cust_main->payinfo;
( $content{account_number}, $content{routing_code} ) =
split('@', $cust_main->payinfo);
@@
-793,9
+793,9
@@
sub realtime_bop {
if ( $transaction->is_success() ) {
my %method2payby = (
if ( $transaction->is_success() ) {
my %method2payby = (
- 'CC' => 'CARD',
- 'CHECK' => 'CHEK',
- 'LEC' => 'LECB',
+ '
CC' => 'CARD',
+ '
E
CHECK' => 'CHEK',
+ 'LEC'
=> 'LECB',
);
my $cust_pay = new FS::cust_pay ( {
);
my $cust_pay = new FS::cust_pay ( {
@@
-1121,7
+1121,7
@@
sub print_text {
=head1 VERSION
=head1 VERSION
-$Id: cust_bill.pm,v 1.5
3 2002-11-19 10:09:34
ivan Exp $
+$Id: cust_bill.pm,v 1.5
4 2002-11-19 22:48:02
ivan Exp $
=head1 BUGS
=head1 BUGS