[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