X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-AuthorizeNet.git;a=blobdiff_plain;f=AuthorizeNet.pm;h=4fe402b34a0eb82d75d76f3d7ac567426059e134;hp=b33c5024efa0976ad58bb7572e2e56ca77089f04;hb=3288a468a4be89dd5188cf278f5dacbc67d6bc94;hpb=789ff6951574f42d8de8651ebc6e64755a91427e

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index b33c502..4fe402b 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -1,6 +1,6 @@
 package Business::OnlinePayment::AuthorizeNet;
 
-# $Id: AuthorizeNet.pm,v 1.17 2002-11-26 05:47:23 ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.18 2003-01-22 09:59:02 ivan Exp $
 
 use strict;
 use Carp;
@@ -36,6 +36,7 @@ sub map_fields {
                    'authorization only'   => 'AUTH_ONLY',
                    'credit'               => 'CREDIT',
                    'post authorization'   => 'PRIOR_AUTH_CAPTURE',
+                   'void'                 => 'VOID',
                   );
     $content{'action'} = $actions{lc($content{'action'})} || $content{'action'};
 
@@ -136,6 +137,8 @@ sub submit {
       if ( $self->{_content}->{action} eq 'PRIOR_AUTH_CAPTURE' ) {
         $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 {
         $self->required_fields(qw/type login password action amount last_name
                                   first_name card_number expiration/);
@@ -298,6 +301,8 @@ T.J. Mather <tjmather@maxmind.com> sent a patch for the CVV2 field.
 
 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.
+
 =head1 SEE ALSO
 
 perl(1). L<Business::OnlinePayment>.