Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl	20 Apr 2004 21:13:01 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl	24 Feb 2005 11:10:31 -0000	1.11
@@ -19,12 +19,13 @@
 # RBM: Check if this is the Main Site and prevent the user from being
 #      able to remove Read permission on "The Public" and locking
 #      him/herself out.
-#
-set extra_where_clause ""
 if { [string equal $object_id [subsite::main_site_id]] } {
-	set extra_where_clause "AND grantee_id <> -1"
+    set mainsite_p 1
+} else {
+    set mainsite_p 0
 }
 
+
 set name [db_string name {}]
 
 set context [list [list "./" [_ acs-subsite.Permissions]] [ad_quotehtml [_ acs-subsite.Permissions_for_name]]]