Index: openacs-4/packages/acs-developer-support/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-developer-support/www/index.tcl	1 Apr 2004 15:04:38 -0000	1.11
+++ openacs-4/packages/acs-developer-support/www/index.tcl	4 May 2004 20:51:38 -0000	1.12
@@ -15,6 +15,7 @@
 set enabled_p [nsv_get ds_properties enabled_p]
 set user_switching_enabled_p [nsv_get ds_properties user_switching_enabled_p]
 set database_enabled_p [nsv_get ds_properties database_enabled_p]
+set adp_reveal_enabled_p [nsv_get ds_properties adp_reveal_enabled_p]
 
 set package_id [ad_conn package_id]
 
@@ -76,6 +77,11 @@
     "on (<a href=\"set-database-enabled?enabled_p=0\">turn it off</a>)" \
     "off (<a href=\"set-database-enabled?enabled_p=1\">turn it on</a>)"]
 
+<li>ADP reveal is currently
+[ad_decode $adp_reveal_enabled_p 1 \
+    "on (<a href=\"set-adp-reveal-enabled?enabled_p=0\">turn it off</a>)" \
+    "off (<a href=\"set-adp-reveal-enabled?enabled_p=1\">turn it on</a>)"]
+
 <p>
 <li> Help on <a href=\"doc/editlocal\">edit and code links</a>.
 </ul>