projects
/
Business-OnlinePayment-AuthorizeNet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Silence new warnings about lc(undef) introduced in perl 5.12. Patch from Todd Rinald...
[Business-OnlinePayment-AuthorizeNet.git]
/
AuthorizeNet
/
AIM.pm
diff --git
a/AuthorizeNet/AIM.pm
b/AuthorizeNet/AIM.pm
index
0039502
..
ed996a3
100644
(file)
--- a/
AuthorizeNet/AIM.pm
+++ b/
AuthorizeNet/AIM.pm
@@
-35,7
+35,7
@@
sub map_fields {
'post authorization' => 'PRIOR_AUTH_CAPTURE',
'void' => 'VOID',
);
'post authorization' => 'PRIOR_AUTH_CAPTURE',
'void' => 'VOID',
);
- $content{'action'} = $actions{lc($content{'action'})} || $content{'action'};
+ $content{'action'} = $actions{lc($content{'action'}
|| ''
)} || $content{'action'};
# TYPE MAP
my %types = ('visa' => 'CC',
# TYPE MAP
my %types = ('visa' => 'CC',
@@
-44,7
+44,7
@@
sub map_fields {
'discover' => 'CC',
'check' => 'ECHECK',
);
'discover' => 'CC',
'check' => 'ECHECK',
);
- $content{'type'} = $types{lc($content{'type'})} || $content{'type'};
+ $content{'type'} = $types{lc($content{'type'}
|| ''
)} || $content{'type'};
$self->transaction_type($content{'type'});
# ACCOUNT TYPE MAP
$self->transaction_type($content{'type'});
# ACCOUNT TYPE MAP
@@
-53,7
+53,7
@@
sub map_fields {
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
);
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
);
- $content{'account_type'} = $account_types{lc($content{'account_type'})}
+ $content{'account_type'} = $account_types{lc($content{'account_type'}
|| ''
)}
|| $content{'account_type'};
if (length $content{'password'} == 15) {
|| $content{'account_type'};
if (length $content{'password'} == 15) {