diff options
Diffstat (limited to 'AuthorizeNet')
| -rw-r--r-- | AuthorizeNet/AIM.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/AuthorizeNet/AIM.pm b/AuthorizeNet/AIM.pm index ed996a3..c66247a 100644 --- a/AuthorizeNet/AIM.pm +++ b/AuthorizeNet/AIM.pm @@ -9,7 +9,7 @@ use Text::CSV_XS; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @ISA = qw(Business::OnlinePayment::AuthorizeNet Business::OnlinePayment::HTTPS); -$VERSION = '3.22'; +$VERSION = '3.23'; sub set_defaults { my $self = shift; @@ -166,7 +166,10 @@ sub submit { length $self->{_content}->{customer_org} ) { push @required_fields, qw( customer_org customer_ssn ); - } else { + } + elsif ( defined $self->{_content}->{license_num} and + length $self->{_content}->{license_num} + ) { push @required_fields, qw(license_num license_state license_dob); } @@ -340,6 +343,9 @@ method that returns the MD5 hash which is returned by the gateway. Steve Simitzis contributed a patch for better compatibility with eProcessingNetwork's AuthorizeNet compatability mode. +Craig Pearlman <cpearlma@yahoo.com> sent in a patch to more accurately declare +required fields for E-check transcations. + =head1 SEE ALSO perl(1). L<Business::OnlinePayment> L<Business::OnlinePayment::AuthorizeNet>. |