diff options
| author | ivan <ivan> | 2003-01-22 09:59:02 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-01-22 09:59:02 +0000 |
| commit | 3288a468a4be89dd5188cf278f5dacbc67d6bc94 (patch) | |
| tree | 1e309b4728dc3a4ce10ef64e12b33364e02e01b3 /AuthorizeNet.pm | |
| parent | 789ff6951574f42d8de8651ebc6e64755a91427e (diff) | |
added 'void' action
Diffstat (limited to 'AuthorizeNet.pm')
| -rw-r--r-- | AuthorizeNet.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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>. |