Index: openacs-4/packages/acs-subsite/lib/subsites.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/subsites.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/lib/subsites.tcl	12 Oct 2003 19:50:30 -0000	1.6
+++ openacs-4/packages/acs-subsite/lib/subsites.tcl	28 Oct 2003 13:33:47 -0000	1.7
@@ -6,7 +6,7 @@
     set pretty_plural [_ acs-subsite.subcommunities]
 }
 
-set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
+set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin -party_id [ad_conn untrusted_user_id]]
 if { $admin_p } {
     set add_url "[subsite::get_element -element url]admin/subsite-add"
 }
@@ -35,7 +35,7 @@
     array unset node 
     array set node [site_node::get_from_url -url $url -exact]
 
-    if { [permission::permission_p -object_id $node(object_id) -privilege read] } {
+    if { [permission::permission_p -object_id $node(object_id) -privilege read -party_id [ad_conn untrusted_user_id]] } {
         # TODO
         set edit_url {}
         if { [permission::permission_p -object_id $node(object_id) -privilege admin] } {