diff options
| author | ivan <ivan> | 2008-01-12 00:09:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-01-12 00:09:29 +0000 |
| commit | 2c7a3e7c8a775b93195c231168ea41acd05ef0a5 (patch) | |
| tree | 5956dc3f3f8b3dc0d9f3552e86de0604193b943e | |
| parent | f62baef5adfb6d0e4f70255ca71fc40f5b057c5d (diff) | |
Patch from Erik Hollensbe <erikh@opensourcery.com> implementing ard-present data (track1/track2) and the duplicate_window parameter, and test fixes
| -rw-r--r-- | AuthorizeNet.pm | 2 | ||||
| -rw-r--r-- | AuthorizeNet/AIM.pm | 5 | ||||
| -rw-r--r-- | Changes | 5 | ||||
| -rw-r--r-- | t/card_arb.t | 2 | ||||
| -rw-r--r-- | t/lib/test_account.pl | 1 |
5 files changed, 12 insertions, 3 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 316b481..4f47479 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -6,7 +6,7 @@ use Business::OnlinePayment; use vars qw($VERSION @ISA $me); @ISA = qw(Business::OnlinePayment); -$VERSION = '3.19'; +$VERSION = '3.20'; $me = 'Business::OnlinePayment::AuthorizeNet'; sub set_defaults { diff --git a/AuthorizeNet/AIM.pm b/AuthorizeNet/AIM.pm index 7e4e963..fa4d8de 100644 --- a/AuthorizeNet/AIM.pm +++ b/AuthorizeNet/AIM.pm @@ -143,6 +143,9 @@ sub submit { 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} @@ -206,7 +209,7 @@ sub submit { 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'; @@ -1,5 +1,10 @@ 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 :) diff --git a/t/card_arb.t b/t/card_arb.t index e560339..99f0914 100644 --- a/t/card_arb.t +++ b/t/card_arb.t @@ -27,7 +27,7 @@ $tx->content( 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 diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl index 0b06973..b129042 100644 --- a/t/lib/test_account.pl +++ b/t/lib/test_account.pl @@ -22,6 +22,7 @@ sub test_account { sub expiration_date { my($month, $year) = (localtime)[4,5]; + $month += 1; $year++; # So we expire next year. $year %= 100; # y2k? What's that? |