X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=AuthorizeNet%2FAIM.pm;fp=AuthorizeNet%2FAIM.pm;h=c66247adfbf8247d62cfe3f5858915b171a83610;hb=9742e21791c5ca793965f9f84559fd9d9ac15a92;hp=ed996a360271411bd50c844a4b3db97a0e680966;hpb=9ff811d7fd19b4d05afe02708d6aa355d4e15633;p=Business-OnlinePayment-AuthorizeNet.git

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>.