projects
/
Business-OnlinePayment-AuthorizeNet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't require libense_num / license_state / license_dob for E-Check transacitons...
[Business-OnlinePayment-AuthorizeNet.git]
/
AuthorizeNet
/
AIM.pm
diff --git
a/AuthorizeNet/AIM.pm
b/AuthorizeNet/AIM.pm
index
ed996a3
..
c66247a
100644
(file)
--- 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);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@ISA = qw(Business::OnlinePayment::AuthorizeNet Business::OnlinePayment::HTTPS);
-$VERSION = '3.2
2
';
+$VERSION = '3.2
3
';
sub set_defaults {
my $self = shift;
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 );
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);
}
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.
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>.
=head1 SEE ALSO
perl(1). L<Business::OnlinePayment> L<Business::OnlinePayment::AuthorizeNet>.