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

[Business-OnlinePayment-IATSPayments.git] / lib / Business / OnlinePayment / IATSPayments.pm

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