freeside/FS/FS cust_main.pm,1.173,1.174

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv17522

Modified Files:
	cust_main.pm 
Log Message:
and store the refund correctly

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.173
retrieving revision 1.174
diff -u -d -r1.173 -r1.174
--- cust_main.pm	13 Mar 2005 11:34:45 -0000	1.173
+++ cust_main.pm	13 Mar 2005 11:47:29 -0000	1.174
@@ -2159,28 +2159,29 @@
     $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 @@
     'refund'   => $amount,
     '_date'    => '',
     'payby'    => $method2payby{$method},
-    'payinfo'  => $self->payinfo,
+    'payinfo'  => $payinfo,
     'paybatch' => $paybatch,
     'reason'   => $options{'reason'} || 'card or ACH refund',
   } );