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.10 -r1.11
--- openacs-4/packages/acs-developer-support/www/request-info.tcl	29 Jun 2004 10:17:36 -0000	1.10
+++ openacs-4/packages/acs-developer-support/www/request-info.tcl	3 Feb 2005 11:42:29 -0000	1.11
@@ -60,7 +60,7 @@
 		    set value "<pre>[ns_quotehtml $conn($key)]</pre>"
 		}
 		endclicks {
-		    set value "[format "%.f" [expr { ($conn(endclicks) - $conn(startclicks)) / 1000 }]] ms"
+		    set value "[format "%.f" [expr { ($conn(endclicks) - $conn(startclicks)) }]] ms"
 		}
 		end {
 		    set value [clock format $conn($key) -format "%Y-%m-%d %H:%M:%S"  ]
@@ -104,14 +104,14 @@
 	set action [lindex $rp 4]
 	set error [lindex $rp 5]
 
-	set duration "[format "%.1f" [expr { ($endclicks - $startclicks) / 1000.0 }]] ms"
+	set duration "[format "%.1f" [expr { ($endclicks - $startclicks) }]] ms"
 
 	if { [string equal $kind debug] && !$rp_show_debug_p } {
 	    continue
 	}
 
 	if { [info exists conn(startclicks)] } {
-	    append body "<li>[format "%+.1f" [expr { ($startclicks - $conn(startclicks)) / 1000.0 }]] ms: "
+	    append body "<li>[format "%+06.1f" [expr { ($startclicks - $conn(startclicks)) }]] ms: "
 	} else {
 	    append body "<li>"
 	}