From 789cc3a2caf53bb2446572ed93eb5d02c3aa9e13 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 18 Jul 2014 14:04:54 -0700
Subject: [PATCH] fix identifier for Amex, patch from Doug Juhlin / Donor.com,
 thanks!

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

diff --git a/Changes b/Changes
index d155fbd..a355f04 100644
--- 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
--- 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',
 );
-- 
2.11.0