From bad299a933bf4eec330323773f6029245186ab13 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 18 Oct 2006 01:48:26 +0000 Subject: [PATCH] patch from Michael G. Schwern: Eliminate inheriting from AutoLoader. We're not using it and it just screws up the error messages, account_type mentioned twice in the required fields for checks, and Quiet an uninit value warning when customer_org is not set. --- AuthorizeNet.pm | 8 +++++--- Changes | 5 +++++ 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 12ae79b..90ba3cd 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -9,7 +9,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; -@ISA = qw(Exporter AutoLoader Business::OnlinePayment); +@ISA = qw(Exporter Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); $VERSION = '3.16'; @@ -143,10 +143,12 @@ sub submit { push @required_fields, qw( amount routing_code account_number account_type bank_name - account_name account_type + account_name ); - if ($self->{_content}->{customer_org} ne '') { + if (defined $self->{_content}->{customer_org} and + length $self->{_content}->{customer_org} + ) { push @required_fields, qw( customer_org customer_ssn ); } else { push @required_fields, qw(license_num license_state license_dob); diff --git a/Changes b/Changes index 5bbbdee..ff6bfe4 100644 --- a/Changes +++ b/Changes @@ -5,6 +5,11 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. Method (AIM)" - patch to map ship_company properly to x_Ship_To_Company from Mike Barry + From Michael G. Schwern : + - Eliminate inheriting from AutoLoader. We're not using it and it just + screws up the error messages. + - account_type mentioned twice in the required fields for checks. + - Quiet an uninit value warning when customer_org is not set. 3.15 Wed Mar 16 01:10:51 PST 2005 - Ask for ',' delimiter and '"' quote explicitly to prevent problems -- 2.11.0