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.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	3 Sep 2003 10:35:24 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	17 Sep 2003 12:13:25 -0000	1.10
@@ -22,11 +22,15 @@
 set acs_admin_url [apm_package_url_from_key "acs-admin"]
 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 acs_automated_testing_url [apm_package_url_from_key "acs-automated-testing"]
 
 set acs_lang_admin_url "[apm_package_url_from_key "acs-lang"]admin/"
 
+
+
 # Dirk: temporary fix for noquote hacking
 set acs_admin_available_p 1
 set instance_name "foobar"