[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{$_}}