Index: openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl 26 Jun 2004 17:06:47 -0000 1.3 +++ openacs-4/packages/acs-content-repository/tcl/content-permission-procs.tcl 7 Aug 2017 23:47:47 -0000 1.4 @@ -27,22 +27,22 @@ -object_id:required -holder_id:required -privilege:required - -recepient_id:required + -recipient_id:required {-is_recursive ""} {-object_type ""} } { @param object_id @param holder_id @param privilege - @param recepient_id + @param recipient_id @param is_recursive @param object_type } { return [package_exec_plsql -var_list [list \ [list object_id $object_id ] \ [list holder_id $holder_id ] \ [list privilege $privilege ] \ - [list recepient_id $recepient_id ] \ + [list recipient_id $recipient_id ] \ [list is_recursive $is_recursive ] \ [list object_type $object_type ] \ ] content_permission grant_permission] @@ -184,3 +184,9 @@ [list privilege $privilege ] \ ] content_permission revoke_permission_h] } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: