[interchange-cvs] interchange - kwalsh modified lib/Vend/Payment/EFSNet.pm

[interchange-cvs at icdevgroup.org]

User:      kwalsh
Date:      2004-04-18 01:59:12 GMT
Modified:  lib/Vend/Payment Tag: STABLE_5_2-branch EFSNet.pm
Log:
	* Commented out the :logDebug() calls.

Revision  Changes    Path
No                   revision



No                   revision



1.1.2.2   +8 -8      interchange/lib/Vend/Payment/EFSNet.pm


rev 1.1.2.2, prev_rev 1.1.2.1
Index: EFSNet.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/EFSNet.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- EFSNet.pm	16 Apr 2004 22:19:16 -0000	1.1.2.1
+++ EFSNet.pm	18 Apr 2004 01:59:12 -0000	1.1.2.2
@@ -1,6 +1,6 @@
 # Vend::Payment::EFSNet - Interchange EFSNet support
 #
-# $Id: EFSNet.pm,v 1.1.2.1 2004/04/16 22:19:16 kwalsh Exp $
+# $Id: EFSNet.pm,v 1.1.2.2 2004/04/18 01:59:12 kwalsh Exp $
 #
 # Connection routine for Concord EFSNet ( http://www.concordefsnet.com/ )
 #
@@ -306,7 +306,7 @@
 		$actual = \%actual;
 	}
 
-::logDebug("actual map result: " . ::uneval($actual));
+#::logDebug("actual map result: " . ::uneval($actual));
 	if (! $user ) {
 		$user    =  charge_param('id')
 						or return (
@@ -323,7 +323,7 @@
 
     $opt->{port}   ||= 443;
     
-::logDebug("Host: $opt->{host} Script: $opt->{script}");
+#::logDebug("Host: $opt->{host} Script: $opt->{script}");
 
 	my $precision = $opt->{precision} 
                     || 2;
@@ -390,7 +390,7 @@
     
 	my $order_id = gen_order_id($opt);
 	
-::logDebug("auth_code=$actual->{auth_code} order_id=$opt->{order_id}");
+#::logDebug("auth_code=$actual->{auth_code} order_id=$opt->{order_id}");
     my %query = (
     		Method				=> $transtype,
 		StoreKey			=> $secret,
@@ -446,7 +446,7 @@
     }
     my $string = join '&', @query;
 
-::logDebug("EFSNet query: " . ::uneval(\%query));
+#::logDebug("EFSNet query: " . ::uneval(\%query));
 
     my $thing    = post_data($opt, \%query);
     my $page     = $thing->{result_page};
@@ -465,7 +465,7 @@
     );
 
 
-::logDebug(qq{\nefsnet page: $page response: $response\n});
+#::logDebug(qq{\nefsnet page: $page response: $response\n});
 
    my %result;
    my @results = split /\&/,$page;
@@ -474,7 +474,7 @@
 	$result{$key} = $val;
    }
     	
-::logDebug(qq{efsnet response_reason_text=$result{ResultMessage} response_code: $result{ResponseCode}});    	
+#::logDebug(qq{efsnet response_reason_text=$result{ResultMessage} response_code: $result{ResponseCode}});    	
 
     for (keys %result_map) {
         $result{$_} = $result{$result_map{$_}}
@@ -501,7 +501,7 @@
     		$result{MErrMsg} = errmsg($msg, $result{ResultMessage});
     	}
     }
-::logDebug(qq{efsnet result=} . uneval(\%result));    	
+#::logDebug(qq{efsnet result=} . uneval(\%result));    	
 
     return (%result);
 }