fix auth bug! 0.02!

diff --git a/Changes b/Changes
index 2481480..bf1f870 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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'}   );