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 -N -r1.33.2.1 -r1.33.2.2 --- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl 10 Sep 2015 08:21:55 -0000 1.33.2.1 +++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl 1 Mar 2016 07:27:42 -0000 1.33.2.2 @@ -280,64 +280,6 @@ } - -ad_proc -deprecated ad_permission_grant { - user_id - object_id - privilege -} { - Grant a permission - - @author ben@openforce.net - - @see permission::grant -} { - permission::grant -party_id $user_id -object_id $object_id -privilege $privilege -} - -ad_proc -deprecated ad_permission_revoke { - user_id - object_id - privilege -} { - Revoke a permission - - @author ben@openforce.net - - @see permission::revoke -} { - permission::revoke -party_id $user_id -object_id $object_id -privilege $privilege -} - -ad_proc -deprecated ad_permission_p { - {-user_id ""} - object_id - privilege -} { - @see permission::permission_p -} { - return [permission::permission_p -party_id $user_id -object_id $object_id -privilege $privilege] -} - -ad_proc -deprecated ad_require_permission { - object_id - privilege -} { - @see permission::require_permission -} { - permission::require_permission -object_id $object_id -privilege $privilege -} - -ad_proc -private -deprecated ad_admin_filter {} { - permission::require_permission -object_id [ad_conn object_id] -privilege "admin" - return filter_ok -} - -ad_proc -private -deprecated ad_user_filter {} { - permission::require_permission -object_id [ad_conn object_id] -privilege "read" - return filter_ok -} - # Local variables: # mode: tcl # tcl-indent-level: 4