Index: openacs-4/packages/acs-developer-support/lib/toolbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-developer-support/lib/toolbar.tcl	8 Jan 2004 15:45:27 -0000	1.3
+++ openacs-4/packages/acs-developer-support/lib/toolbar.tcl	11 Jan 2004 16:37:03 -0000	1.4
@@ -1,10 +1,7 @@
 
 # TODO: Handle the case when developer-support is not mounted
 
-# TODO: Flag the "CMT" (comments) button if there are comments and it's turned off (after we get rid of the always-there default 3 rp_handler comments)
 
-
-
 set show_p [ds_show_p]
 
 if { $show_p } {
@@ -14,6 +11,8 @@
     set comments_toggle_url [export_vars -base "${ds_url}comments-toggle" { { return_url [ad_return_url] } }]
     set comments_on [ad_decode $comments_p 1 "on" "off"]
 
+    set num_comments [llength [ds_get_comments]]
+
     set user_switching_p [ds_user_switching_enabled_p]
     set user_switching_toggle_url [export_vars -base "${ds_url}set-user-switching-enabled" { { enabled_p {[expr !$user_switching_p]} } { return_url [ad_return_url] } }]
     set user_switching_on [ad_decode $user_switching_p 1 "on" "off"]
@@ -28,6 +27,8 @@
 
     set oacs_shell_url "${ds_url}shell"
 
+    set auto_test_url [site_node::get_package_url -package_key acs-automated-testing]
+
     set request_info_url [export_vars -base "${ds_url}request-info" { { request {[ad_conn request]} } }]
 
     set page_ms [lc_numeric [ds_get_page_serve_time_ms]]