diff options
author | ivan <ivan> | 2005-03-13 11:47:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-03-13 11:47:29 +0000 |
commit | f77aadd8221dd05fa0e3ac4be21efe490d5e4e66 (patch) | |
tree | dd19313bc8b33aa39db82abe77cf2f67df25d442 /FS | |
parent | c62991706722410987b249893f1323b4ba0e7a5f (diff) |
and store the refund correctly
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_main.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 479b19a4a..be81f333c 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2159,28 +2159,29 @@ sub realtime_refund_bop { $payname = "$payfirst $paylast"; } + my $payinfo = ''; if ( $method eq 'CC' ) { if ( $cust_pay ) { - $content{card_number} = $cust_pay->payinfo; + $content{card_number} = $payinfo = $cust_pay->payinfo; #$self->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; #$content{expiration} = "$2/$1"; } else { - $content{card_number} = $self->payinfo; + $content{card_number} = $payinfo = $self->payinfo; $self->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/; $content{expiration} = "$2/$1"; } } elsif ( $method eq 'ECHECK' ) { ( $content{account_number}, $content{routing_code} ) = - split('@', $self->payinfo); + split('@', $payinfo = $self->payinfo); $content{bank_name} = $self->payname; $content{account_type} = 'CHECKING'; $content{account_name} = $payname; $content{customer_org} = $self->company ? 'B' : 'I'; $content{customer_ssn} = $self->ss; } elsif ( $method eq 'LEC' ) { - $content{phone} = $self->payinfo; + $content{phone} = $payinfo = $self->payinfo; } #then try refund @@ -2229,7 +2230,7 @@ sub realtime_refund_bop { 'refund' => $amount, '_date' => '', 'payby' => $method2payby{$method}, - 'payinfo' => $self->payinfo, + 'payinfo' => $payinfo, 'paybatch' => $paybatch, 'reason' => $options{'reason'} || 'card or ACH refund', } ); |