Index: openacs-4/packages/forums/www/message-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v diff -u -N -r1.53 -r1.54 --- openacs-4/packages/forums/www/message-view.tcl 7 Aug 2017 23:48:11 -0000 1.53 +++ openacs-4/packages/forums/www/message-view.tcl 27 Sep 2017 11:07:52 -0000 1.54 @@ -36,27 +36,9 @@ } set user_id [ad_conn user_id] -forum::security::require_read_message -message_id $message_id +forum::security::require_read_forum -forum_id $message(forum_id) forum::security::permissions -forum_id $message(forum_id) -- permissions -# Check if the user has admin on the message -set permissions(moderate_p) [forum::security::can_moderate_message_p -message_id $message_id] -if { !$permissions(moderate_p) } { - # Set post_p according to permissions ... - set permissions(post_p) [forum::security::can_post_message_p -message_id $message_id] - # ... alternatively, we could use a parameter to behave like - # in earlier versions just leave it is a reminder, if - # someone still likes the old behavior. This code should be - # removed later.... - # if {$user_id == 0 && [parameter::get -parameter "OfferPostForAnonymousUserP" -default 1]} { - # set permissions(post_p) 1 - # } else { - # set permissions(post_p) [forum::security::can_post_forum_p -forum_id $message(forum_id)] - # } -} else { - set permissions(post_p) 1 -} - # Check if the message is approved if {!$permissions(moderate_p) && $message(state) ne "approved" } { ad_returnredirect "forum-view?forum_id=$message(forum_id)"