From 8607eda7be33ce9032dfa4ddf159a171ddfbf90a Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 15 Jun 2007 00:58:41 +0000
Subject: [PATCH] store exp in cust_pay and pass to B:OP during refunds with
 paynum (#1662)

---
 FS/FS/Schema.pm    | 1 +
 FS/FS/cust_main.pm | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 9f244740d..7f5149bd4 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -527,6 +527,7 @@ sub tables_hashref {
                                                  # eventually
         'payinfo',  'varchar',   'NULL', 512, '', '', #see cust_main above
 	'paymask', 'varchar', 'NULL', $char_d, '', '', 
+        'paydate',  'varchar', 'NULL', 10, '', '', 
         'paybatch', 'varchar',   'NULL', $char_d, '', '', #for auditing purposes.
         'closed',    'char', 'NULL', 1, '', '', 
       ],
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 3dbd9c4d5..1dc167a26 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2567,10 +2567,11 @@ sub realtime_bop {
   $content{invoice_number} = $options{'invnum'}
     if exists($options{'invnum'}) && length($options{'invnum'});
 
+  my $paydate = '';
   if ( $method eq 'CC' ) { 
 
     $content{card_number} = $payinfo;
-    my $paydate = exists($options{'paydate'})
+    $paydate = exists($options{'paydate'})
                     ? $options{'paydate'}
                     : $self->paydate;
     $paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
@@ -2754,6 +2755,7 @@ sub realtime_bop {
        'payby'    => $method2payby{$method},
        'payinfo'  => $payinfo,
        'paybatch' => $paybatch,
+       'paydate'  => $paydate,
     } );
     my $error = $cust_pay->insert($options{'manual'} ? ( 'manual' => 1 ) : () );
     if ( $error ) {
@@ -3098,8 +3100,8 @@ sub realtime_refund_bop {
 
     if ( $cust_pay ) {
       $content{card_number} = $payinfo = $cust_pay->payinfo;
-      #$self->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
-      #$content{expiration} = "$2/$1";
+      $cust_pay->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/ &&
+      ($content{expiration} = "$2/$1");  # where available
     } else {
       $content{card_number} = $payinfo = $self->payinfo;
       $self->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
-- 
2.11.0