summaryrefslogtreecommitdiff
path: root/AuthorizeNet
diff options
context:
space:
mode:
authorivan <ivan>2009-11-15 02:39:00 +0000
committerivan <ivan>2009-11-15 02:39:00 +0000
commit92b8ff65410aa005ef662179d123dadf0fd3a155 (patch)
tree62526447906047c4dcd246973c7c4877059da2f2 /AuthorizeNet
parentf1a63cdaaf5cc29fd26d2c0a8fec39e01c2f5e3f (diff)
- Patch from Michael Peters to fix a bug in email address handling:
exclude x_Email_Customer flag when it is not specified in content, to avoid overriding admin settings.
Diffstat (limited to 'AuthorizeNet')
-rw-r--r--AuthorizeNet/AIM.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/AuthorizeNet/AIM.pm b/AuthorizeNet/AIM.pm
index 36296f0..5324e51 100644
--- a/AuthorizeNet/AIM.pm
+++ b/AuthorizeNet/AIM.pm
@@ -12,7 +12,7 @@ require Exporter;
@ISA = qw(Exporter Business::OnlinePayment::AuthorizeNet);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '3.20';
+$VERSION = '3.21';
sub set_defaults {
my $self = shift;
@@ -225,7 +225,7 @@ sub submit {
if ( $post_data{'x_Email_Customer'}
&& $post_data{'x_Email_Customer'} !~ /^FALSE$/i ) {
$post_data{'x_Email_Customer'} = 'TRUE';
- } else {
+ } elsif ( exists $post_data{'x_Email_Customer'} ) {
$post_data{'x_Email_Customer'} = 'FALSE';
}