From bad299a933bf4eec330323773f6029245186ab13 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 18 Oct 2006 01:48:26 +0000
Subject: 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 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'AuthorizeNet.pm')

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);
-- 
cgit v1.2.1