X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=Network1Financial.pm;h=cd2b77c7482dacea5a0a873f8fdc5611a6d058c2;hb=HEAD;hp=343c62430a2f7054e92d40d8b57994d0266960e9;hpb=2b36ee521e0000a08d41e5df0f06036572195385;p=Business-OnlinePayment-Network1Financial.git

diff --git a/Network1Financial.pm b/Network1Financial.pm
index 343c624..cd2b77c 100644
--- a/Network1Financial.pm
+++ b/Network1Financial.pm
@@ -13,7 +13,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 $DEBUG = 0;
 
@@ -123,7 +123,11 @@ sub submit {
       croak "$type not (yet) supported";
     }
 
-    ( my $exp = $content{'expiration'} ) =~ s/\///;
+    $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
+    my($m, $y) = ($1, $2);
+    $m = $m+0;
+    $m = "0$m" if $m<10;
+    my $exp = "$m$y";
 
     $self->revmap_fields(
         'M_id'              => 'login',