expiration fix

[Business-OnlinePayment-Network1Financial.git] / Network1Financial.pm

diff --git a/Network1Financial.pm b/Network1Financial.pm
index 343c624..5358ec8 100644 (file)
--- 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',