projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
789ff69
)
added 'void' action
author
ivan
<ivan>
Wed, 22 Jan 2003 09:59:02 +0000
(09:59 +0000)
committer
ivan
<ivan>
Wed, 22 Jan 2003 09:59:02 +0000
(09:59 +0000)
AuthorizeNet.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
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;
package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.1
7 2002-11-26 05:47:23
ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.1
8 2003-01-22 09:59:02
ivan Exp $
use strict;
use Carp;
use strict;
use Carp;
@@
-36,6
+36,7
@@
sub map_fields {
'authorization only' => 'AUTH_ONLY',
'credit' => 'CREDIT',
'post authorization' => 'PRIOR_AUTH_CAPTURE',
'authorization only' => 'AUTH_ONLY',
'credit' => 'CREDIT',
'post authorization' => 'PRIOR_AUTH_CAPTURE',
+ 'void' => 'VOID',
);
$content{'action'} = $actions{lc($content{'action'})} || $content{'action'};
);
$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/);
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/);
} 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.
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>.
=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
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>
3.12 Thu Nov 21 17:05:19 2002
- Added cvv2 field, patch from T.J. Mather <tjmather@maxmind.com>