diff options
| -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 |