[interchange-cvs] interchange - heins modified lib/Vend/Payment/Ezic.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Mar 5 23:01:41 EST 2005


User:      heins
Date:      2005-03-06 04:01:41 GMT
Modified:  lib/Vend/Payment Ezic.pm
Log:
* Remove debug.

Revision  Changes    Path
1.2       +7 -7      interchange/lib/Vend/Payment/Ezic.pm


rev 1.2, prev_rev 1.1
Index: Ezic.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/Ezic.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Ezic.pm	18 Nov 2004 20:28:32 -0000	1.1
+++ Ezic.pm	6 Mar 2005 04:01:41 -0000	1.2
@@ -1,6 +1,6 @@
 # Vend::Payment::Ezic - Interchange Ezic support
 #
-# $Id: Ezic.pm,v 1.1 2004/11/18 20:28:32 mheins Exp $
+# $Id: Ezic.pm,v 1.2 2005/03/06 04:01:41 mheins Exp $
 #
 # Copyright (C) 1999-2002 Red Hat, Inc. <interchange at redhat.com>
 #
@@ -35,7 +35,7 @@
 package Vend::Payment::Ezic;
 =head1 Interchange Ezic Support
 
-Vend::Payment::Ezic $Revision: 1.1 $
+Vend::Payment::Ezic $Revision: 1.2 $
 
 =head1 SYNOPSIS
 
@@ -296,7 +296,7 @@
 		$actual = \%actual;
 	}
 
-::logDebug("actual map result: " . ::uneval($actual));
+#::logDebug("actual map result: " . ::uneval($actual));
 
 # Try and Get Cart Contents
 	my $cartdesc = "";
@@ -425,14 +425,14 @@
     }
     my $string = join '&', @query;
 
-::logDebug("EziC query: " . ::uneval(\%query));
+#::logDebug("EziC query: " . ::uneval(\%query));
     $opt->{extra_headers} = { Referer => $referer };
 
     my $thing    = post_data($opt, \%query);
     my $page     = $thing->{result_page};
     my $response = $thing->{status_line};
 #::logDebug("EziC post_data response: " . ::uneval($thing) );
-#
+
     # Minivend names are on the  left, Authorize.Net on the right
     my %result_map = ( qw/
             pop.status            status_code
@@ -445,8 +445,8 @@
     /
     );
 
-::logDebug(qq{\nezic page: $page \n\nresponse: $response\n});
-::logGlobal(qq{\nezic page: $page \n\nresponse: $response\n});
+#::logDebug(qq{\nezic page: $page \n\nresponse: $response\n});
+#::logGlobal(qq{\nezic page: $page \n\nresponse: $response\n});
 
     my %result= ();
     my @tmprslt = split('\&',$page);








More information about the interchange-cvs mailing list