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)] } {