[interchange-cvs] interchange - heins modified 7 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Apr 26 15:29:03 EDT 2004


User:      heins
Date:      2004-04-26 19:29:03 GMT
Modified:  dist/standard/config breadcrumbs.tag pay_cert.tag
Modified:           pay_cert_redeem.tag
Modified:  dist/standard/pages/admin edit_page.html mass_setting.html
Modified:  dist/standard/pages/member process_return.html
Modified:  dist/standard/pages/query unsub.html
Log:
* Comment out debug statements.

Revision  Changes    Path
1.2       +1 -1      interchange/dist/standard/config/breadcrumbs.tag


rev 1.2, prev_rev 1.1
Index: breadcrumbs.tag
===================================================================
RCS file: /var/cvs/interchange/dist/standard/config/breadcrumbs.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- breadcrumbs.tag	25 Apr 2004 17:07:48 -0000	1.1
+++ breadcrumbs.tag	26 Apr 2004 19:29:02 -0000	1.2
@@ -130,7 +130,7 @@
 	my $crumb;
 
 	if($opt->{reset_on_product} and @extra) {
-::logDebug("Resetting based on product");
+#::logDebug("Resetting based on product");
 		@$crumbs = ();
 	}
 



1.2       +13 -13    interchange/dist/standard/config/pay_cert.tag


rev 1.2, prev_rev 1.1
Index: pay_cert.tag
===================================================================
RCS file: /var/cvs/interchange/dist/standard/config/pay_cert.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- pay_cert.tag	25 Apr 2004 17:07:49 -0000	1.1
+++ pay_cert.tag	26 Apr 2004 19:29:02 -0000	1.2
@@ -92,10 +92,10 @@
 			$expire_date = POSIX::strftime('%Y%m%d%H%M%S', @date_expires);
 		}
 
-::logDebug("generated code=$code, expires=$opt->{expires} date_expires=$expire_date ");
+#::logDebug("generated code=$code, expires=$opt->{expires} date_expires=$expire_date ");
 		my $check = int rand(10);
 		$check .= int(rand(10)) while length($check) < 4;
-::logDebug("generated check=$check");
+#::logDebug("generated check=$check");
 		my %record = (
 			amount => $opt->{amount},
 			ip_addr => $CGI::remote_addr,
@@ -203,13 +203,13 @@
 
 		$opt->{tid} = $status = $rdb->set_slice(undef, \%redeem)
 			or $die->("Auth redemption of %s failed: %s", $code, $rdb->errstr());
-::logDebug("Redemption auth tid=$status");
+#::logDebug("Redemption auth tid=$status");
 		my $new_amount = $cdb->set_field(
 								$code,
 								'amount',
 								$record->{amount} - $opt->{amount},
 							);
-::logDebug("Redemption amount=$record->{amount} redeeming=$opt->{amount} new_amount=$new_amount");
+#::logDebug("Redemption amount=$record->{amount} redeeming=$opt->{amount} new_amount=$new_amount");
 
 		defined $new_amount
 			or $die->("Auth redemption of %s failed: %s", $code, $rdb->errstr());
@@ -250,10 +250,10 @@
 
 		$opt->{new_tid} = $status = $rdb->set_slice(undef, \%redeem)
 			or $die->("Auth redemption of %s failed: %s", $code, $rdb->errstr());
-::logDebug("Redemption auth tid=$status");
+#::logDebug("Redemption auth tid=$status");
 
 		$rdb->set_field($opt->{tid}, 'captured', 1);
-::logDebug("Capture amount=$red_record->{amount}");
+#::logDebug("Capture amount=$red_record->{amount}");
 
 	}
 	elsif($opt->{void}) {
@@ -303,13 +303,13 @@
 
 		$opt->{new_tid} = $status = $rdb->set_slice(undef, \%redeem)
 			or $die->("Auth redemption of %s failed: %s", $code, $rdb->errstr());
-::logDebug("Redemption auth tid=$status");
+#::logDebug("Redemption auth tid=$status");
 
 		$rdb->set_field($opt->{tid}, 'voided', 1);
-::logDebug("Capture amount=$red_record->{amount}");
+#::logDebug("Capture amount=$red_record->{amount}");
 
 		my $new_amount = $cdb->set_field($code, 'amount', $record->{amount} + $red_record->{amount});
-::logDebug("void amount=$red_record->{amount} new_amount=$new_amount");
+#::logDebug("void amount=$red_record->{amount} new_amount=$new_amount");
 
 	}
 	elsif ($opt->{return}) {
@@ -343,13 +343,13 @@
 
 		$opt->{tid} = $status = $rdb->set_slice(undef, \%redeem)
 			or $die->("Auth redemption of %s failed: %s", $code, $rdb->errstr());
-::logDebug("Redemption auth tid=$status");
+#::logDebug("Redemption auth tid=$status");
 		my $new_amount = $cdb->set_field(
 								$code,
 								'amount',
 								$record->{amount} + $opt->{amount},
 							);
-::logDebug("return amount=$record->{amount} redeeming=$opt->{amount} new_amount=$new_amount");
+#::logDebug("return amount=$record->{amount} redeeming=$opt->{amount} new_amount=$new_amount");
 
 		defined $new_amount
 			or $die->("Return of %s failed: %s", $code, $rdb->errstr());
@@ -357,14 +357,14 @@
 
 	if($locked) {
 		my $rc = $sth_unlock->execute($code) and $locked = 0;
-::logDebug("unlock rc=$rc");
+#::logDebug("unlock rc=$rc");
 		if($locked) {
 			undef $locked;
 			return $die->("Gift certificate %s lock was not released.", $code);
 		}
 	}
 	else {
-::logDebug("Not locked??!!?? THis should not happen.");
+#::logDebug("Not locked??!!?? THis should not happen.");
 	}
 	return $status;
 }



1.2       +2 -2      interchange/dist/standard/config/pay_cert_redeem.tag


rev 1.2, prev_rev 1.1
Index: pay_cert_redeem.tag
===================================================================
RCS file: /var/cvs/interchange/dist/standard/config/pay_cert_redeem.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- pay_cert_redeem.tag	25 Apr 2004 17:07:49 -0000	1.1
+++ pay_cert_redeem.tag	26 Apr 2004 19:29:02 -0000	1.2
@@ -69,10 +69,10 @@
 			my $tid = $Tag->pay_cert($o);
 			if($tid) {
 				push @tid, $tid;
-::logDebug("authorized pay_cert=$code amount=$amount tid=$tid");
+#::logDebug("authorized pay_cert=$code amount=$amount tid=$tid");
 			}
 			else {
-::logDebug("failed to auth pay_cert=$code amount=$amount tid=$tid");
+#::logDebug("failed to auth pay_cert=$code amount=$amount tid=$tid");
 				for(@tid) {
 					my $o = {
 						void => 1,



1.2       +2 -2      interchange/dist/standard/pages/admin/edit_page.html


rev 1.2, prev_rev 1.1
Index: edit_page.html
===================================================================
RCS file: /var/cvs/interchange/dist/standard/pages/admin/edit_page.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- edit_page.html	25 Apr 2004 17:07:52 -0000	1.1
+++ edit_page.html	26 Apr 2004 19:29:02 -0000	1.2
@@ -45,13 +45,13 @@
 
 	my $editable;
 	if($preamble =~ m{\[(seti?|tmpn?)\s+editable\s*\](.*?)\[/\1\]}) {
-Log("Found editable marker=$1 editable=$2 preamble length=" . length($preamble));
+#Log("Found editable marker=$1 editable=$2 preamble length=" . length($preamble));
 		$editable = $2;
 		$editable =~ s/^\s+//;
 		$editable =~ s/\s+$//;
 	}
 	else {
-Log("Didn't find preamble length=" . length($preamble));
+#Log("Didn't find preamble length=" . length($preamble));
 	}
 
 	unless ($editable) {



1.2       +3 -3      interchange/dist/standard/pages/admin/mass_setting.html


rev 1.2, prev_rev 1.1
Index: mass_setting.html
===================================================================
RCS file: /var/cvs/interchange/dist/standard/pages/admin/mass_setting.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- mass_setting.html	25 Apr 2004 17:07:52 -0000	1.1
+++ mass_setting.html	26 Apr 2004 19:29:03 -0000	1.2
@@ -33,9 +33,9 @@
 
 	my  @do;
 	for(@pages) {
-Debug("Checking $_");
+#Debug("Checking $_");
 		next unless $CGI->{$_};
-Debug("$_ is changable.");
+#Debug("$_ is changable.");
 		my $digits = $_;
 		$digits =~ s/^dopage//;
 		push @do, $digits;
@@ -47,7 +47,7 @@
 		my $page = $CGI->{"page$_"};
 		my $settor = $CGI->{"settor$_"};
 		my $val = $CGI->{"value$_"};
-Debug("ready to write page=$page settor=$settor val=$val");
+#Debug("ready to write page=$page settor=$settor val=$val");
 		my $data = $Tag->file("pages/$page", 'raw');
 		$data =~ s/(\n[ \t]*\@_[A-Z][A-Z_]+_\@[ \t]*\n.*)//s
 			or do {



1.2       +3 -3      interchange/dist/standard/pages/member/process_return.html


rev 1.2, prev_rev 1.1
Index: process_return.html
===================================================================
RCS file: /var/cvs/interchange/dist/standard/pages/member/process_return.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- process_return.html	25 Apr 2004 17:07:52 -0000	1.1
+++ process_return.html	26 Apr 2004 19:29:03 -0000	1.2
@@ -88,7 +88,7 @@
 
 foreach my $code (@items) {
 
-Debug("Doing return for $code");
+#Debug("Doing return for $code");
 	my $prior = $rdb->field($code, 'rma_number');
 	if($prior) {
 		$Tag->warnings("Return already processed for line $code on RMA $prior! Skipping.");
@@ -116,7 +116,7 @@
 		last;
 	}
 	else {
-Debug("Doing record for $code");
+#Debug("Doing record for $code");
 		push @done, {
 						code => $code,
 						nitems => $qty2,
@@ -144,7 +144,7 @@
 $tdb->set_field($on, 'archived', '');
 
 foreach my $rec (@done) {
-Debug("updating records for $code");
+#Debug("updating records for $code");
 	$rec->{order_number} = $on;
 	$rec->{session} = $Session->{id};
 	$rec->{username} = $Session->{username};



1.2       +1 -1      interchange/dist/standard/pages/query/unsub.html


rev 1.2, prev_rev 1.1
Index: unsub.html
===================================================================
RCS file: /var/cvs/interchange/dist/standard/pages/query/unsub.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- unsub.html	25 Apr 2004 17:07:52 -0000	1.1
+++ unsub.html	26 Apr 2004 19:29:03 -0000	1.2
@@ -45,7 +45,7 @@
 				WHERE  username = '$who'
 				AND    email = '$what'
 				};
-Debug("unsub query is : $q");
+#Debug("unsub query is : $q");
 	my $ary = $db->query($q);
 	if(! $ary) {
 		$who = $Tag->filter('entities', $who);








More information about the interchange-cvs mailing list