Index: openacs-4/packages/acs-developer-support/lib/toolbar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/lib/toolbar.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-developer-support/lib/toolbar.adp	8 Jan 2004 15:45:27 -0000	1.3
+++ openacs-4/packages/acs-developer-support/lib/toolbar.adp	11 Jan 2004 16:37:03 -0000	1.4
@@ -4,7 +4,7 @@
       <td style="padding-left: 8px;" >
         <a href="@ds_url@">Developer Support</a>
 
-        <a href="@comments_toggle_url@" class="@comments_on@" title="Comments at page footer">CMT</a>
+        <a href="@comments_toggle_url@" class="@comments_on@" title="Comments at page footer">CMT<if @num_comments@ gt 0>(@num_comments@)</if></a>
         
         <a href="@user_switching_toggle_url@" class="@user_switching_on@" title="User switching">USR</a>
         
@@ -21,10 +21,12 @@
         |
         <a href="/acs-admin/apm/" title="Modify/reload packages">APM</a>
         |
-        <a href="/acs-admin/apm/?reload_links_p=1" title="Scan for changed library files">Changed files</a>
+        <a href="/acs-admin/apm/?reload_links_p=1" title="Scan for changed library files">Changed</a>
         |
         <a href="@flush_url@" title="Flush entire util_memoize cache">Flush</a>
         |
+        <a href="@auto_test_url@" title="Automated Testing Home">Test</a>
+        |
         <a href="/acs-admin/users/" title="Add/edit/become users">Users</a>
         |
         <a href="/acs-lang/admin/" title="Add/edit message keys">I18n</a>
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]]