Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	21 Nov 2001 21:18:33 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	13 Mar 2002 22:54:44 -0000	1.4
@@ -90,3 +90,31 @@
   ad_require_permission [ad_conn object_id] read
   return filter_ok
 }
+
+namespace eval permission {
+
+    ad_proc -public toggle_inherit {
+        {-object_id:required}
+    } {
+        toggle whether or not this object inherits permissions from it's parent
+    } {
+        db_dml toggle_inherit {}
+    }
+
+    ad_proc -public set_inherit {
+        {-object_id:required}
+    } {
+        set inherit to true
+    } {
+        db_dml set_inherit {}
+    }
+
+    ad_proc -public set_not_inherit {
+        {-object_id:required}
+    } {
+        set inherit to false
+    } {
+        db_dml set_not_inherit {}
+    }
+
+}