Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -N -r1.64.2.5 -r1.64.2.6 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 19 Feb 2021 10:15:32 -0000 1.64.2.5 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 22 Feb 2021 15:25:17 -0000 1.64.2.6 @@ -349,7 +349,17 @@ } } - ad_proc -private ds_collect_db_call { db command statement_name sql start_time errno error } { + ad_proc -public ds_collect_db_call { + db + command + statement_name + sql + start_time + errno + error + } { + Collects stats for a single database call + } { if { [ds_enabled_p] && [ds_collection_enabled_p] && [ds_database_enabled_p] } { set bound_sql $sql