Patch from Erik Hollensbe <erikh@opensourcery.com> implementing ard-present data...

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 316b481..4f47479 100644 (file)
--- 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 (file)
--- 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';
 

diff --git a/Changes b/Changes
index 0f534ff..0410a3f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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 (file)
--- 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 (file)
--- 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?