Index: openacs-4/packages/acs-developer-support/www/request-info.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/www/request-info.adp 14 Jan 2004 08:58:34 -0000 1.2
+++ openacs-4/packages/acs-developer-support/www/request-info.adp 29 Jan 2004 12:02:46 -0000 1.3
@@ -4,5 +4,7 @@
@body;noquote@
-
-
\ No newline at end of file
+
+
+
+
Index: openacs-4/packages/acs-developer-support/www/request-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-developer-support/www/request-info.tcl 23 Jan 2004 12:58:06 -0000 1.8
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl 29 Jan 2004 12:02:46 -0000 1.9
@@ -197,9 +197,14 @@
append body "\n"
}
-if { [info exists property(db)] } {
- multirow create dbreqs handle command sql duration_ms value
+multirow create dbreqs handle command sql duration_ms value
+if { ![info exists property(db)] } {
+ template::list::create \
+ -name dbreqs \
+ -elements { }
+} else {
+
foreach { handle command statement_name sql start end errno return } $property(db) {
if { ![empty_string_p $handle] && [info exists pool($handle)] } {