From 32014ce34ac7f23d45e3ea1622789ec735fe9e56 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 21 Mar 2007 22:42:46 +0000
Subject: [PATCH] Make sure expiration date has a leading zero

---
 Changes                                          | 1 +
 README                                           | 1 +
 lib/Business/OnlinePayment/TransactionCentral.pm | 2 +-
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index c1c2bd7..2481480 100644
--- 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
--- 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
--- 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;
 
-- 
2.11.0