Index: openacs-4/packages/acs-developer-support/lib/footer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/footer.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-developer-support/lib/footer.tcl	23 Jan 2004 08:22:44 -0000	1.4
+++ openacs-4/packages/acs-developer-support/lib/footer.tcl	3 Feb 2004 22:25:00 -0000	1.5
@@ -69,4 +69,17 @@
         set unfake_url [export_vars -base $set_user_url { { user_id $real_user_id } { return_url [ad_return_url] } }]
     }
 
+    # Profiling information
+    global ds_profile__total_ms ds_profile__iterations 
+
+    multirow create profiling tag num_iterations total_ms ms_per_iteration
+
+    if { [info exists ds_profile__total_ms] } {
+        foreach tag [lsort [array names ds_profile__total_ms]] {
+            multirow append profiling $tag [set ds_profile__iterations($tag)] [lc_numeric [set ds_profile__total_ms($tag)]] \
+                    [ad_decode [set ds_profile__iterations($tag)] 0 {} \
+                    [lc_numeric [expr [set ds_profile__total_ms($tag)]/[set ds_profile__iterations($tag)]]]]
+        }
+    }
+
 }