Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	11 Dec 2003 21:39:57 -0000	1.18
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	29 Dec 2003 20:08:52 -0000	1.19
@@ -79,7 +79,7 @@
   set sql [string trim $sql]
   set full_statement_name [db_qd_get_fullname $statement_name]
 
-  #set beginTime [clock clicks]
+  #set beginTime [clock clicks -milliseconds]
 
   template::util::get_opts $args
   
@@ -110,7 +110,7 @@
     set_cached_result
   }
 
-  #set timeElapsed [expr ([clock clicks] - $beginTime) / 1000]
+  #set timeElapsed [expr ([clock clicks -milliseconds] - $beginTime)]
   #ns_log Notice "Query performed in: $timeElapsed ms"
   
   return $ret_code