diff options
| author | ivan <ivan> | 2006-10-18 01:48:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-18 01:48:26 +0000 |
| commit | bad299a933bf4eec330323773f6029245186ab13 (patch) | |
| tree | e456d8900e669f895de67ed289b8aaf05702eced | |
| parent | f13b12920b36c7eb555d6c17a6923e691f3b2791 (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.
| -rw-r--r-- | AuthorizeNet.pm | 8 | ||||
| -rw-r--r-- | 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); @@ -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 <MBarry@cos.com> + From Michael G. Schwern <MSCHWERN@cpan.org>: + - 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 |