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',    } ); | 
