package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.15 2002-11-22 00:48:46 ivan Exp $
-
use strict;
use Carp;
use Business::OnlinePayment;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '3.12';
+$VERSION = '3.13';
sub set_defaults {
my $self = shift;
'authorization only' => 'AUTH_ONLY',
'credit' => 'CREDIT',
'post authorization' => 'PRIOR_AUTH_CAPTURE',
+ 'void' => 'VOID',
);
$content{'action'} = $actions{lc($content{'action'})} || $content{'action'};
order_number => 'x_Trans_ID',
auth_code => 'x_Auth_Code',
customer_id => 'x_Cust_ID',
- customer_ip => 'x_Customer_IP'
+ customer_ip => 'x_Customer_IP',
last_name => 'x_Last_Name',
first_name => 'x_First_Name',
address => 'x_Address',
}
} elsif ($self->transaction_type() eq 'CC' ) {
if ( $self->{_content}->{action} eq 'PRIOR_AUTH_CAPTURE' ) {
- $self->required_fields(qw/type login password action amount
- card_number expiration/);
+ if ( $self->{_content}->{order_number}) {
+ $self->required_fields(qw/type login password action amount/);
+ } else {
+ $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/);
Jason Kohles, jason@mediabang.com
Ivan Kohler <ivan-authorizenet@420.am> updated it for Authorize.Net protocol
-3.0/3.1 and is the current maintainer.
+3.0/3.1 and is the current maintainer. Please send patches as unified diffs
+(diff -u).
Jason Spence <jspence@lightconsulting.com> contributed support for separate
Authorization Only and Post Authorization steps and wrote some docs.
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.
+
+Paul Zimmer <AuthorizeNetpm@pzimmer.box.bepress.com> sent in a patch for
+card-less post authorizations.
+
=head1 SEE ALSO
perl(1). L<Business::OnlinePayment>.