From ba882bcb4971d80b310f08543675ba469d548e7a Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Sun, 8 Apr 2007 00:03:13 +0000
Subject: [PATCH] add bank account type handling

---
 AuthorizeNet.pm | 9 +++++++++
 Changes         | 1 +
 2 files changed, 10 insertions(+)

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 54f1514..1f787ca 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -50,6 +50,15 @@ sub map_fields {
     $content{'type'} = $types{lc($content{'type'})} || $content{'type'};
     $self->transaction_type($content{'type'});
 
+    # ACCOUNT TYPE MAP
+    my %account_types = ('personal checking'   => 'CHECKING',
+                         'personal savings'    => 'SAVINGS',
+                         'business checking'   => 'CHECKING',
+                         'business savings'    => 'SAVINGS',
+                        );
+    $content{'account_type'} = $account_types{lc($content{'account_type'})}
+                               || $content{'account_type'};
+
     $content{'referer'} = defined( $content{'referer'} )
                             ? make_headers( 'Referer' => $content{'referer'} )
                             : "";
diff --git a/Changes b/Changes
index 599e3d2..b108500 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
 3.17  unreleased
         - Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's
           AuthorizetNet compatability mode.
+        - add bank account type handling
 
 3.16  Tue Nov 14 02:35:30 PST 2006
 	- Update link to API docs, now it is called "Advanced Integration
-- 
2.11.0