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;
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);
}
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>.