From 0a22d2dbe888f956e8ffc3e66ee390a2877c8a62 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 21 Apr 2003 22:07:51 +0000 Subject: [PATCH] allow "Post Authorize" with order_number but no card info patch from Paul Zimmer --- AuthorizeNet.pm | 13 +++++++++---- Changes | 3 ++- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 7b4778f..82c2be1 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,7 +1,5 @@ package Business::OnlinePayment::AuthorizeNet; -# $Id: AuthorizeNet.pm,v 1.19 2003-02-26 03:46:54 ivan Exp $ - use strict; use Carp; use Business::OnlinePayment; @@ -135,8 +133,12 @@ sub submit { } } elsif ($self->transaction_type() eq 'CC' ) { if ( $self->{_content}->{action} eq 'PRIOR_AUTH_CAPTURE' ) { - $self->required_fields(qw/type login password action amount - card_number expiration/); + if ( $self->{_content}->{order_number}) { + $self->required_fields(qw/type login password action amount/); + } else { + $self->required_fields(qw/type login password action amount + card_number expiration/); + } } elsif ( $self->{_content}->{action} eq 'VOID' ) { $self->required_fields(qw/login password action/); } else { @@ -304,6 +306,9 @@ Mike Barry sent in a patch for the referer field. Yuri V. Mkrtumyan sent in a patch to add the void action. +Paul Zimmer sent in a patch for +card-less post authorizations. + =head1 SEE ALSO perl(1). L. diff --git a/Changes b/Changes index 7ea9d6f..e138c34 100644 --- a/Changes +++ b/Changes @@ -2,7 +2,8 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. 3.13 unreleased - removed Michael Mavroudis's email address - - added 'void' action, patch from Yuri V. Mkrtumyan + - added 'void' action, patch from Yuri V. Mkrtumyan - allow "Post Authorize" with order_number but no card info, patch + from Paul Zimmer 3.12 Thu Nov 21 17:05:19 2002 - Added cvv2 field, patch from T.J. Mather -- 2.11.0