From 9742e21791c5ca793965f9f84559fd9d9ac15a92 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 26 Jan 2014 17:00:23 -0800
Subject: [PATCH] Don't require libense_num / license_state / license_dob for
 E-Check transacitons; not a universal requirement.  Patch from Craig
 Pearlman, thanks!

---
 AuthorizeNet.pm     |  2 +-
 AuthorizeNet/AIM.pm | 10 ++++++++--
 Changes             |  5 +++++
 README              |  1 +
 4 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index b00547d..136cbb7 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -6,7 +6,7 @@ use Business::OnlinePayment;
 use vars qw($VERSION @ISA $me);
 
 @ISA = qw(Business::OnlinePayment);
-$VERSION = '3.22';
+$VERSION = '3.23';
 $me = 'Business::OnlinePayment::AuthorizeNet';
 
 sub set_defaults {
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>.
diff --git a/Changes b/Changes
index 401e384..df93d8e 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
 
+3.23  unreleased
+        - Don't require libense_num / license_state / license_dob for E-Check
+          transacitons; not a universal requirement.  Patch from Craig
+          Pearlman, thanks!
+
 3.22  Mon Sep 26 15:06:52 PDT 2011
         - Add missing t/lib/Business/FraudDetect/_Fake.pm to MANIFEST to fix
           tests.  Patch from Rob Brown, thanks!  (closes: CPAN#52444)
diff --git a/README b/README
index 0cbff49..373dd49 100644
--- a/README
+++ b/README
@@ -1,5 +1,6 @@
 Copyright (c) 1999 Jason Kohles.
 Copyright (c) 2002-2003 Ivan Kohler
+Copyright (c) 2006-2014 Freeside Internet Services, Inc.
 All rights reserved. This program is free software; you can redistribute it
 and/or modify it under the same terms as Perl itself.
 
-- 
2.11.0