diff options
| author | jeff <jeff> | 2007-04-08 00:03:13 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-04-08 00:03:13 +0000 |
| commit | ba882bcb4971d80b310f08543675ba469d548e7a (patch) | |
| tree | d4c1bdf22d806dc32c285a26c1a14aed38c3dcb3 | |
| parent | 4c2d2e639d14092cdd13301565db5facf42ef9a8 (diff) | |
add bank account type handling
| -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 |