From 6ba72ba30863c04cf190de9159ecb026f46cde15 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 20 Apr 2007 00:49:53 +0000
Subject: [PATCH] fix auth bug!  0.02!

---
 Changes                                          | 4 +++-
 MANIFEST                                         | 2 ++
 lib/Business/OnlinePayment/TransactionCentral.pm | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 2481480..bf1f870 100644
--- a/Changes
+++ b/Changes
@@ -1,9 +1,11 @@
 Revision history for Perl extension Business::OnlinePayment::TransactionCentral.
 
-0.02  unreleased
+0.02  Thu Apr 19 17:48:09 PDT 2007
 	- updated example in manpage s/Capstone/TransactionCentral/
         - add debugging methods response_page, response_code, response_headers
         - Make sure expiration date has a leading zero
+        - fix problem with transactions going through but coming back denied:
+          Returned "Auth" field can have letters as well as numbers!  sheesh
 
 0.01  Wed Nov 23 05:14:43 2005
 	- original version; created by h2xs 1.23 with options
diff --git a/MANIFEST b/MANIFEST
index f6cb7b1..5ae7cb0 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -11,3 +11,5 @@ t/credit_card.t
 t/crypt_bad_card.t
 t/crypt_credit_card.t
 t/crypt_load.t
+t/credit_card_fs.t
+t/credit_card_onedigitmonth.t
diff --git a/lib/Business/OnlinePayment/TransactionCentral.pm b/lib/Business/OnlinePayment/TransactionCentral.pm
index aca83c6..a0765fc 100644
--- a/lib/Business/OnlinePayment/TransactionCentral.pm
+++ b/lib/Business/OnlinePayment/TransactionCentral.pm
@@ -132,7 +132,7 @@ sub submit {
   $self->avs_code(      $return{'AVSCode'} );
   $self->cvv2_response( $return{'CVV2ResponseMsg'} );
 
-  if ( $return{'Auth'} =~ /^(\d+)$/ ) {
+  if ( $return{'Auth'} =~ /^(\w+)$/ ) {
 
     $self->is_success(1);
     $self->authorization( $return{'Auth'}   );
-- 
2.11.0