Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	10 Oct 2003 09:02:18 -0000	1.14
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	10 Oct 2003 09:50:44 -0000	1.15
@@ -540,8 +540,8 @@
     }
 
     set user_id [ad_conn user_id]
-    set group_id [application_group::group_id_from_package_id]
-    set admin_p [ad_permission_p -user_id $user_id $group_id "admin"]
+    set admin_p [permission::permission_p -object_id \
+	    [site_node_closest_ancestor_package "acs-subsite"] -privilege admin]
     set show_member_list_to [parameter::get -parameter "ShowMembersListTo" -default 2]
 
     if { $admin_p || ($user_id != 0 && $show_member_list_to == 1) || \
@@ -569,7 +569,7 @@
                                                 selected_patterns *]
     }
 
-    if { [permission::permission_p -object_id [site_node_closest_ancestor_package "acs-subsite"] -privilege admin] } {
+    if { $admin_p } {
         lappend pageflow admin {
             label "Administration"
             url "admin/configure"