X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-AuthorizeNet.git;a=blobdiff_plain;f=AuthorizeNet.pm;h=028b6d825c9da4f2c6b73328f96ccadd8a742cc8;hp=8d67a90e3767887c3d21d41edddb1468f33e82cf;hb=7b4ea762675c7c24fdce4e0139cb98ba5d2f35ca;hpb=e08efa4a4b086a2879be7a1adca0555ea4a745c5 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();