diff options
| -rw-r--r-- | AuthorizeNet.pm | 10 | ||||
| -rw-r--r-- | Changes | 3 |
2 files changed, 10 insertions, 3 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 8d67a90..028b6d8 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,8 +1,9 @@ package Business::OnlinePayment::AuthorizeNet; -# $Id: AuthorizeNet.pm,v 1.10 2002-04-24 05:02:54 ivan Exp $ +# $Id: AuthorizeNet.pm,v 1.11 2002-07-31 14:38:17 ivan Exp $ use strict; +use Carp; use Business::OnlinePayment; use Net::SSLeay qw/make_form post_https/; use Text::CSV_XS; @@ -13,7 +14,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '3.11'; +$VERSION = '3.12'; sub set_defaults { my $self = shift; @@ -101,6 +102,7 @@ sub submit { email => 'x_Email', company => 'x_Company', order_number => 'x_Trans_ID', + cvv2 => 'x_Card_Code', ); if($self->transaction_type() eq "ECHECK") { @@ -128,7 +130,8 @@ sub submit { x_Last_Name x_First_Name x_Address x_City x_State x_Zip x_Country x_Phone x_Fax x_Email x_Email_Customer - x_Company x_Country x_Trans_ID/); + x_Company x_Country x_Trans_ID + x_Card_Code /); $post_data{'x_Test_Request'} = $self->test_transaction()?"TRUE":"FALSE"; $post_data{'x_ADC_Delim_Data'} = 'TRUE'; $post_data{'x_ADC_URL'} = 'FALSE'; @@ -198,6 +201,7 @@ Business::OnlinePayment::AuthorizeNet - AuthorizeNet backend for Business::Onlin zip => '84058', card_number => '4007000000027', expiration => '09/02', + cvv2 => '1234', #optional ); $tx->submit(); @@ -1,5 +1,8 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. +3.12 unreleased + - Added cvv2 field, patch from "T.J. Mather" <tjmather@maxmind.com> + 3.11 Sat May 4 00:43:36 PDT 2002 - forgot 3.10 changelog in 3.10 :) - extremely verbose debugging information for responses without |