use vars qw($VERSION @ISA $me);
@ISA = qw(Business::OnlinePayment);
-$VERSION = '3.19';
+$VERSION = '3.20';
$me = 'Business::OnlinePayment::AuthorizeNet';
sub set_defaults {
license_state => 'x_Drivers_License_State',
license_dob => 'x_Drivers_License_DOB',
recurring_billing => 'x_Recurring_Billing',
+ duplicate_window => 'x_Duplicate_Window',
+ track1 => 'x_Track1',
+ track2 => 'x_Track2',
);
my $auth_type = $self->{_content}->{transaction_key}
x_Ship_To_Address x_Ship_To_City x_Ship_To_State x_Ship_To_Zip
x_Ship_To_Country
x_Phone x_Fax x_Email x_Email_Customer x_Country
- x_Currency_Code x_Trans_ID/);
+ x_Currency_Code x_Trans_ID x_Duplicate_Window x_Track1 x_Track2/);
$post_data{'x_Test_Request'} = $self->test_transaction() ? 'TRUE' : 'FALSE';
Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
+3.20 unreleased
+ - Patch from Erik Hollensbe <erikh@opensourcery.com> implementing
+ card-present data (track1/track2) and the duplicate_window parameter,
+ as well as test fixes. Thanks!
+
3.19 Fri Nov 23 12:46:05 PST 2007
- ironically, forgot the 3.18 changelog, so this is 3.19 anyway :)
card_number => '4007000000027',
expiration => expiration_date(),
interval => '1 month',
- start => '2007-12-01',
+ start => tomorrow(),
periods => '3',
);
$tx->test_transaction(1); # test, dont really charge
sub expiration_date {
my($month, $year) = (localtime)[4,5];
+ $month += 1;
$year++; # So we expire next year.
$year %= 100; # y2k? What's that?