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
/
ARB.pm
diff --git
a/AuthorizeNet/ARB.pm
b/AuthorizeNet/ARB.pm
index
294114b
..
cc8289b
100644
(file)
--- a/
AuthorizeNet/ARB.pm
+++ b/
AuthorizeNet/ARB.pm
@@
-39,7
+39,7
@@
sub map_fields {
'cancel recurring authorization'
=> 'ARBCancelSubscriptionRequest',
);
'cancel recurring authorization'
=> 'ARBCancelSubscriptionRequest',
);
- $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',
@@
-48,7
+48,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
@@
-57,7
+57,7
@@
sub map_fields {
'business checking' => 'businessChecking',
'business savings' => 'savings',
);
'business checking' => 'businessChecking',
'business savings' => 'savings',
);
- $content{'account_type'} = $account_types{lc($content{'account_type'})}
+ $content{'account_type'} = $account_types{lc($content{'account_type'}
|| ''
)}
|| $content{'account_type'};
# MASSAGE EXPIRATION
|| $content{'account_type'};
# MASSAGE EXPIRATION