Make sure expiration date has a leading zero

diff --git a/Changes b/Changes
index c1c2bd7..2481480 100644 (file)
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Perl extension Business::OnlinePayment::TransactionCentral.
 0.02  unreleased
        - updated example in manpage s/Capstone/TransactionCentral/
         - add debugging methods response_page, response_code, response_headers
+        - Make sure expiration date has a leading zero
 
 0.01  Wed Nov 23 05:14:43 2005
        - original version; created by h2xs 1.23 with options

diff --git a/README b/README
index 6bfa275..d8054c2 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,5 @@
 Copyright (c) 2006 Ivan Kohler
+Copyright (c) 2007 Freeside Internet Services, Inc.
 All rights reserved. This program is free software; you can redistribute it
 and/or modify it under the  same terms as Perl itself.
 

diff --git a/lib/Business/OnlinePayment/TransactionCentral.pm b/lib/Business/OnlinePayment/TransactionCentral.pm
index 78b84ec..aca83c6 100644 (file)
--- a/lib/Business/OnlinePayment/TransactionCentral.pm
+++ b/lib/Business/OnlinePayment/TransactionCentral.pm
@@ -61,7 +61,7 @@ sub submit {
       $content{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
         or croak "unparsable expiration ". $content{'expiration'};
       my( $month, $year ) = ( $1, $2 );
-      #$month = '0'. $month if $month =~ /^\d$/;
+      $month = '0'. $month if $month =~ /^\d$/;
       $content{'CCMonth'} = $month;
       $content{'CCYear'} = $year;