added 'void' action

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index b33c502..4fe402b 100644 (file)
--- 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>.

diff --git a/Changes b/Changes
index a1261ef..7ea9d6f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ 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 <yuramk@novosoft.ru>
 
 3.12  Thu Nov 21 17:05:19 2002
        - Added cvv2 field, patch from T.J. Mather <tjmather@maxmind.com>