fix identifier for Amex, patch from Doug Juhlin / Donor.com, thanks!

diff --git a/Changes b/Changes
index d155fbd..a355f04 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@ Revision history for Perl extension Business::OnlinePayment::IATSPayments.
         - Patches from Dough Juhlin / Donor.com, thanks!
           * Correct default_ns for non-USD/CAD transactions
           * Parse nun-numeric AUTHORIZATIONRESULT values properly
+          * Fix identifier for Amex
 
 0.02  Sat Feb 15 12:45:24 PST 2014
         - trim spaces from authorization (TRANSACTIONID)

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index df0a717..66cc02e 100644 (file)
--- a/lib/Business/OnlinePayment/IATSPayments.pm
+++ b/lib/Business/OnlinePayment/IATSPayments.pm
@@ -8,7 +8,7 @@ use Business::CreditCard;
 use SOAP::Lite;
 #SOAP::Lite->import(+trace=>'debug');
 
-our $VERSION = '0.03_01';
+our $VERSION = '0.03_02';
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 sub _info {
@@ -105,7 +105,7 @@ our %mop = (
   'VISA card'             => 'VISA',
   'MasterCard'            => 'MC',
   'Discover card'         => 'DSC',
-  'American Express card' => 'AMEX',
+  'American Express card' => 'AMX',
   'Switch'                => 'MAESTR',
   'Solo'                  => 'MAESTR',
 );