summaryrefslogtreecommitdiff
path: root/FS
diff options
context:
space:
mode:
authorivan <ivan>2005-03-13 11:47:29 +0000
committerivan <ivan>2005-03-13 11:47:29 +0000
commitf77aadd8221dd05fa0e3ac4be21efe490d5e4e66 (patch)
treedd19313bc8b33aa39db82abe77cf2f67df25d442 /FS
parentc62991706722410987b249893f1323b4ba0e7a5f (diff)
and store the refund correctly
Diffstat (limited to 'FS')
-rw-r--r--FS/FS/cust_main.pm11
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',
} );