[interchange-cvs] interchange - heins modified 2 files

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2004-06-07 03:35:28 GMT
Modified:  lib/Vend Order.pm
Modified:  lib/Vend/Payment PRI.pm
Log:
* Comment out debug statements.

Revision  Changes    Path
2.66      +5 -5      interchange/lib/Vend/Order.pm


rev 2.66, prev_rev 2.65
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.65
retrieving revision 2.66
diff -u -r2.65 -r2.66
--- Order.pm	13 May 2004 22:48:21 -0000	2.65
+++ Order.pm	7 Jun 2004 03:35:27 -0000	2.66
@@ -1,6 +1,6 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.65 2004/05/13 22:48:21 mheins Exp $
+# $Id: Order.pm,v 2.66 2004/06/07 03:35:27 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
 package Vend::Order;
 require Exporter;
 
-$VERSION = substr(q$Revision: 2.65 $, 10);
+$VERSION = substr(q$Revision: 2.66 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -1023,7 +1023,7 @@
 		undef $individual;
 	}
 
-::logDebug("nextpage=$CGI::values{mv_nextpage}");
+#::logDebug("nextpage=$CGI::values{mv_nextpage}");
 	for my $profile (split /\0+/, $profiles) {
 
 		$status = check_order_each($profile, $vref, $individual);
@@ -1055,7 +1055,7 @@
 			}
 		}
 		else {
-::logDebug("Got to status=$status on profile=$profile");
+#::logDebug("Got to status=$status on profile=$profile");
 			if($Fail_page) {
 				$np = $CGI::values{mv_nextpage} = $Fail_page;
 			}
@@ -1096,7 +1096,7 @@
 	my $errors = join "\n", @Errors;
 #::logDebug("Errors after checking profile(s):\n$errors") if $errors;
 	$errors = '' unless defined $errors and ! $Success;
-::logDebug("status=$status nextpage=$CGI::values{mv_nextpage}");
+#::logDebug("status=$status nextpage=$CGI::values{mv_nextpage}");
 	return ($status, $Final, $errors);
 }
 



1.2       +5 -5      interchange/lib/Vend/Payment/PRI.pm


rev 1.2, prev_rev 1.1
Index: PRI.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/PRI.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- PRI.pm	24 May 2004 17:03:53 -0000	1.1
+++ PRI.pm	7 Jun 2004 03:35:28 -0000	1.2
@@ -1,6 +1,6 @@
 # Vend::Payment::PRI - Interchange PRI support
 #
-# $Id: PRI.pm,v 1.1 2004/05/24 17:03:53 mheins Exp $
+# $Id: PRI.pm,v 1.2 2004/06/07 03:35:28 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1999-2002 Red Hat, Inc.
@@ -387,7 +387,7 @@
 			);
 	}
 
-::logDebug("Values to be sent: " . ::uneval(%values));
+#::logDebug("Values to be sent: " . ::uneval(%values));
 
 	$opt->{submit_url} ||= 	 'https://webservices.primerchants.com/billing/TransactionCentral/processCC.asp?';
 
@@ -409,14 +409,14 @@
 	$result_page =~ s/^\s*//g;
 	$result_page =~ s/\s*$//g;
 	
-::logDebug("restul_page after cleanup: $result_page");
+#::logDebug("restul_page after cleanup: $result_page");
 
 	%$result = split /[&=]/, $result_page;
 	
 	# if the Auth code contains anytihng but digits, or if it is
 	# null or a space, we failed.
 	if ( $result->{Auth} =~ /[\D\s]/ || ! $result->{Auth} ) {
-::logDebug("Transaction declined: $result->{Auth} $result->{Notes}");
+#::logDebug("Transaction declined: $result->{Auth} $result->{Notes}");
 		$result{MStatus} = 'failed';
 		if ( $result->{Notes} ) {
 			$result{MErrMsg} = "$result->{Auth} $result->{Notes}";
@@ -426,7 +426,7 @@
 		}
 	}
 	else {
-::logDebug("Transaction approved: $result->{Auth}");
+#::logDebug("Transaction approved: $result->{Auth}");
 		$result{MStatus} = $result{'pop.status'} = 'success';
 		$result{'order-id'} = $opt->{order_id};
 		$::Values->{avs} = $result->{AVSCode};