summaryrefslogtreecommitdiff
path: root/AuthorizeNet.pm
diff options
context:
space:
mode:
authorivan <ivan>2006-10-18 01:48:26 +0000
committerivan <ivan>2006-10-18 01:48:26 +0000
commitbad299a933bf4eec330323773f6029245186ab13 (patch)
treee456d8900e669f895de67ed289b8aaf05702eced /AuthorizeNet.pm
parentf13b12920b36c7eb555d6c17a6923e691f3b2791 (diff)
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.
Diffstat (limited to 'AuthorizeNet.pm')
-rw-r--r--AuthorizeNet.pm8
1 files changed, 5 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);