[interchange-cvs] interchange - heins modified lib/Vend/Payment/AuthorizeNet.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Fri Nov 2 08:51:00 2001
User: heins
Date: 2001-11-02 13:44:47 GMT
Modified: lib/Vend/Payment Tag: STABLE_4_8-branch AuthorizeNet.pm
Log:
* Add $transtype fix found by Javier Martin.
Revision Changes Path
No revision
No revision
2.1.2.2 +4 -4 interchange/lib/Vend/Payment/AuthorizeNet.pm
rev 2.1.2.2, prev_rev 2.1.2.1
Index: AuthorizeNet.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Payment/AuthorizeNet.pm,v
retrieving revision 2.1.2.1
retrieving revision 2.1.2.2
diff -u -r2.1.2.1 -r2.1.2.2
--- AuthorizeNet.pm 2001/10/30 13:01:08 2.1.2.1
+++ AuthorizeNet.pm 2001/11/02 13:44:47 2.1.2.2
@@ -1,6 +1,6 @@
# Vend::Payment::AuthorizeNet - Interchange AuthorizeNet support
#
-# $Id: AuthorizeNet.pm,v 2.1.2.1 2001/10/30 13:01:08 mheins Exp $
+# $Id: AuthorizeNet.pm,v 2.1.2.2 2001/11/02 13:44:47 mheins Exp $
#
# Copyright (C) 1999-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -38,7 +38,7 @@
=head1 Interchange AuthorizeNet Support
-Vend::Payment::AuthorizeNet $Revision: 2.1.2.1 $
+Vend::Payment::AuthorizeNet $Revision: 2.1.2.2 $
=head1 SYNOPSIS
@@ -373,7 +373,7 @@
x_State => $actual->{b_state},
x_Zip => $actual->{b_zip},
x_Country => $actual->{b_country},
- x_Type => $actual->{cyber_mode},
+ x_Type => $transtype,
x_Amount => $amount,
x_Exp_Date => $exp,
x_Method => 'CC',
@@ -443,7 +443,7 @@
}
= split (/,/,$page);
-#::logDebug(qq{authorizenet response_reason_text=$response_reason_text response_code: $response_code});
+#::logDebug(qq{authorizenet response_reason_text=$result{x_response_reason_text} response_code: $result{x_response_code}});
for (keys %result_map) {
$result{$_} = $result{$result_map{$_}}