From: ivan Date: Wed, 22 Jan 2003 09:59:02 +0000 (+0000) Subject: added 'void' action X-Git-Tag: BUSINESS_ONLINEPAYMENT_AUTHORIZENET_3_13~8 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-AuthorizeNet.git;a=commitdiff_plain;h=3288a468a4be89dd5188cf278f5dacbc67d6bc94 added 'void' action --- 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 sent a patch for the CVV2 field. Mike Barry sent in a patch for the referer field. +Yuri V. Mkrtumyan sent in a patch to add the void action. + =head1 SEE ALSO perl(1). L. diff --git a/Changes b/Changes index a1261ef..7ea9d6f 100644 --- 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 3.12 Thu Nov 21 17:05:19 2002 - Added cvv2 field, patch from T.J. Mather