From: ivan <ivan>
Date: Fri, 20 Apr 2007 00:49:53 +0000 (+0000)
Subject: fix auth bug!  0.02!
X-Git-Tag: Business_OnlinePayment_TransactionCentral_0_02
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-TransactionCentral.git;a=commitdiff_plain;h=6ba72ba30863c04cf190de9159ecb026f46cde15

fix auth bug!  0.02!
---

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'}   );