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.5 -r1.6
--- openacs-4/packages/acs-developer-support/www/request-info.tcl	30 Dec 2003 22:46:17 -0000	1.5
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl	11 Jan 2004 16:35:55 -0000	1.6
@@ -155,6 +155,9 @@
 		    append body "<ul><li>returned error: <pre>[ns_quotehtml $error]</pre></ul>\n"
 		}
 	    }
+            notice {
+		append body "$info\n"
+            }
 	    debug {
 		append body "<i>$info</i>\n"
 	    }
@@ -228,12 +231,12 @@
 	    append value "$command $handle<blockquote><pre>[ns_quotehtml $sql]</pre></blockquote>\n"
 	}
 
-	append body "<tr valign=top><td align=right bgcolor=$bgcolor nowrap>&nbsp;&nbsp;[format "%.f" [expr { ($end - $start) / 1000 }]]&nbsp;ms&nbsp;&nbsp;</td><td bgcolor=$bgcolor>&nbsp;&nbsp;$statement_pool&nbsp;&nbsp;</td><td bgcolor=$bgcolor>$value</td></tr>\n"
+	append body "<tr valign=top><td align=right bgcolor=$bgcolor nowrap>&nbsp;&nbsp;[format "%.f" [expr { ($end - $start) }]]&nbsp;ms&nbsp;&nbsp;</td><td bgcolor=$bgcolor>&nbsp;&nbsp;$statement_pool&nbsp;&nbsp;</td><td bgcolor=$bgcolor>$value</td></tr>\n"
 	incr counter
 
 	incr total [expr { $end - $start }]
     }
-    append body "<tr><td bgcolor=black align=right><font color=white><b>&nbsp;&nbsp;[format "%.f" [expr { $total / 1000 }]]&nbsp;ms&nbsp;&nbsp;</td><th align=left>(total)</th></tr>\n"
+    append body "<tr><td bgcolor=black align=right><font color=white><b>&nbsp;&nbsp;[format "%.f" [expr { $total }]]&nbsp;ms&nbsp;&nbsp;</td><th align=left>(total)</th></tr>\n"
     append body "</table></blockquote>\n"
 }