Index: openacs-4/packages/forums/www/message-post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v diff -u -N -r1.47 -r1.48 --- openacs-4/packages/forums/www/message-post.tcl 13 Oct 2017 09:39:12 -0000 1.47 +++ openacs-4/packages/forums/www/message-post.tcl 7 Jun 2018 18:08:11 -0000 1.48 @@ -1,5 +1,5 @@ ad_page_contract { - + Form to create message and insert it @author Ben Adida (ben@openforce.net) @@ -40,14 +40,14 @@ ############################## # Pull out required forum and parent data and -# perform security checks +# perform security checks # if {$parent_id eq ""} { # no parent_id, therefore new thread # require thread creation privs forum::get -forum_id $forum_id -array forum - - if {![forum::security::can_moderate_forum_p -forum_id $forum_id]} { + + if { ![permission::permission_p -object_id $forum_id -privilege "forum_moderate"] } { forum::security::require_post_forum -forum_id $forum_id # check if we can post new threads if {!$forum(new_questions_allowed_p)} { @@ -59,7 +59,7 @@ set parent_message(tree_level) 0 # see if they're allowed to add to this thread - if {![forum::security::can_moderate_forum_p -forum_id $forum_id]} { + if { ![permission::permission_p -object_id $forum_id -privilege "forum_moderate"] } { forum::security::require_post_forum -forum_id $parent_message(forum_id) }