From: ivan <ivan>
Date: Fri, 13 Dec 2002 00:39:39 +0000 (+0000)
Subject: expiration fix
X-Git-Tag: BUSINESS_ONLINEPAYMENT_NETWORK1FINANCIAL_0_01~2
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=inline;h=67e43bc3401039f8addbfb156bc78ca39ac94260;p=Business-OnlinePayment-Network1Financial.git

expiration fix
---

diff --git a/Network1Financial.pm b/Network1Financial.pm
index 343c624..5358ec8 100644
--- a/Network1Financial.pm
+++ b/Network1Financial.pm
@@ -123,7 +123,10 @@ sub submit {
       croak "$type not (yet) supported";
     }
 
-    ( my $exp = $content{'expiration'} ) =~ s/\///;
+    $content{'expiration'} =~ s/(\d+)\/(\d+)$/;
+    my($m, $y) = ($1, $2);
+    $m = '0$m' if $m<10;
+    my $exp = "$m$y";
 
     $self->revmap_fields(
         'M_id'              => 'login',
diff --git a/t/credit_card.t b/t/credit_card.t
index 3c27806..2d87d4a 100644
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -20,7 +20,7 @@ $tx->content(
     state          => 'UT',
     zip            => '84058',
     card_number    => '4111111111111111',
-    expiration     => '01/05',
+    expiration     => '1/05',
 );
 $tx->test_transaction(1); # test, dont really charge
 $tx->submit();