allow "Post Authorize" with order_number but no card info

patch from Paul Zimmer <AuthorizeNetpm@pzimmer.box.bepress.com>

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 7b4778f..82c2be1 100644 (file)
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -1,7 +1,5 @@
 package Business::OnlinePayment::AuthorizeNet;
 
 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;
 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' ) {
         }
     } 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 {
       } elsif ( $self->{_content}->{action} eq 'VOID' ) {
         $self->required_fields(qw/login password action/);
       } else {


@@ -304,6 +306,9 @@ Mike Barry <mbarry@cos.com> sent in a patch for the referer field.
 
 Yuri V. Mkrtumyan <yuramk@novosoft.ru> sent in a patch to add the void action.
 
 
 Yuri V. Mkrtumyan <yuramk@novosoft.ru> sent in a patch to add the void action.
 

+Paul Zimmer <AuthorizeNetpm@pzimmer.box.bepress.com> sent in a patch for
+card-less post authorizations.
+

 =head1 SEE ALSO
 
 perl(1). L<Business::OnlinePayment>.
 =head1 SEE ALSO
 
 perl(1). L<Business::OnlinePayment>.

diff --git a/Changes b/Changes
index 7ea9d6f..e138c34 100644 (file)
--- 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
 
 3.13  unreleased
        - removed Michael Mavroudis's email address

-       - added 'void' action, patch from Yuri V. Mkrtumyan <yuramk@novosoft.ru>
+       - added 'void' action, patch from Yuri V. Mkrtumyan <yuramk@novosoft.ru>        - allow "Post Authorize" with order_number but no card info, patch
+         from Paul Zimmer <AuthorizeNetpm@pzimmer.box.bepress.com>

 
 3.12  Thu Nov 21 17:05:19 2002
        - Added cvv2 field, patch from T.J. Mather <tjmather@maxmind.com>
 
 3.12  Thu Nov 21 17:05:19 2002
        - Added cvv2 field, patch from T.J. Mather <tjmather@maxmind.com>