Index: openacs-4/packages/acs-subsite/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.adp,v
diff -u -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/acs-subsite/www/admin/index.adp	4 Jan 2007 16:32:14 -0000	1.22.2.1
+++ openacs-4/packages/acs-subsite/www/admin/index.adp	8 Jan 2007 17:58:05 -0000	1.22.2.2
@@ -20,6 +20,9 @@
   <li><a href=rel-types/>Relationship Types</a>
   <li><a href=host-node-map/>Host-Node Map</a>
   <li><a href=object-types/>Object Types</a>
+  <if @asm_p@ eq 1>
+  <li><a href=set-reg-assessment> #acs-subsite.reg_asm_link#</a>
+  </if>
 </ul>
 
 <if @sw_admin_p@ true>
Index: openacs-4/packages/acs-subsite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.tcl,v
diff -u -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	4 Jan 2007 16:32:14 -0000	1.14.2.1
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	8 Jan 2007 17:58:05 -0000	1.14.2.2
@@ -23,6 +23,7 @@
 array set acs_admin_node [site_node::get -url $acs_admin_url]
 set acs_admin_name $acs_admin_node(instance_name)
 set sw_admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id $acs_admin_node(object_id) -privilege admin]
+set asm_p [apm_package_installed_p "assessment"]