projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e08efa4
)
added cvv2 field
author
ivan
<ivan>
Wed, 31 Jul 2002 14:38:18 +0000
(14:38 +0000)
committer
ivan
<ivan>
Wed, 31 Jul 2002 14:38:18 +0000
(14:38 +0000)
AuthorizeNet.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
diff --git
a/AuthorizeNet.pm
b/AuthorizeNet.pm
index
8d67a90
..
028b6d8
100644
(file)
--- a/
AuthorizeNet.pm
+++ b/
AuthorizeNet.pm
@@
-1,8
+1,9
@@
package Business::OnlinePayment::AuthorizeNet;
package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.1
0 2002-04-24 05:02:54
ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.1
1 2002-07-31 14:38:17
ivan Exp $
use strict;
use strict;
+use Carp;
use Business::OnlinePayment;
use Net::SSLeay qw/make_form post_https/;
use Text::CSV_XS;
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();
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '3.1
1
';
+$VERSION = '3.1
2
';
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-101,6
+102,7
@@
sub submit {
email => 'x_Email',
company => 'x_Company',
order_number => 'x_Trans_ID',
email => 'x_Email',
company => 'x_Company',
order_number => 'x_Trans_ID',
+ cvv2 => 'x_Card_Code',
);
if($self->transaction_type() eq "ECHECK") {
);
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_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';
$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',
zip => '84058',
card_number => '4007000000027',
expiration => '09/02',
+ cvv2 => '1234', #optional
);
$tx->submit();
);
$tx->submit();
diff --git
a/Changes
b/Changes
index
c967ca8
..
537a79a
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
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
3.11 Sat May 4 00:43:36 PDT 2002
- forgot 3.10 changelog in 3.10 :)
- extremely verbose debugging information for responses without