diff options
| -rw-r--r-- | AuthorizeNet.pm | 9 | ||||
| -rw-r--r-- | Changes | 1 |
2 files changed, 10 insertions, 0 deletions
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'} ) : ""; @@ -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 |