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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl	13 Mar 2002 22:54:34 -0000	1.2
@@ -13,10 +13,6 @@
 
 ad_require_permission $object_id admin
 
-db_dml toggle_inherit {
-  update acs_objects
-  set security_inherit_p = decode(security_inherit_p, 't', 'f', 'f', 't')
-  where object_id = :object_id
-}
+permission::toggle_inherit -object_id $object_id
 
 ad_returnredirect one?[export_url_vars object_id]