Index: openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	28 Aug 2003 09:41:41 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	4 Jun 2006 00:45:45 -0000	1.5
@@ -17,4 +17,14 @@
 
 permission::toggle_inherit -object_id $object_id
 
+# this prevents administrators from deselecting inheritance and then
+# discovering that they no longer have admin rights
+set group_id [application_group::group_id_from_package_id -package_id [ad_conn subsite_id]]
+set rel_id [group::get_rel_segment -group_id $group_id -type admin_rel]
+permission::grant -object_id $object_id -party_id $rel_id -privilege admin
+if { ![permission::permission_p -object_id $object_id -privilege admin] } {
+    permission::grant \
+        -object_id $object_id -party_id [ad_conn user_id] -privilege admin
+}
+
 ad_returnredirect $return_url