projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4c2d2e6
)
add bank account type handling
author
jeff
<jeff>
Sun, 8 Apr 2007 00:03:13 +0000
(
00:03
+0000)
committer
jeff
<jeff>
Sun, 8 Apr 2007 00:03:13 +0000
(
00:03
+0000)
AuthorizeNet.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
diff --git
a/AuthorizeNet.pm
b/AuthorizeNet.pm
index
54f1514
..
1f787ca
100644
(file)
--- 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'});
$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'} )
: "";
$content{'referer'} = defined( $content{'referer'} )
? make_headers( 'Referer' => $content{'referer'} )
: "";
diff --git
a/Changes
b/Changes
index
599e3d2
..
b108500
100644
(file)
--- 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.
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
3.16 Tue Nov 14 02:35:30 PST 2006
- Update link to API docs, now it is called "Advanced Integration