Index: openacs-4/packages/chat/www/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v diff -u -r1.20.2.4 -r1.20.2.5 --- openacs-4/packages/chat/www/chat.tcl 5 Mar 2019 09:44:49 -0000 1.20.2.4 +++ openacs-4/packages/chat/www/chat.tcl 5 Oct 2019 13:11:52 -0000 1.20.2.5 @@ -48,12 +48,12 @@ if { $moderate_room_p == "t" } { set moderator_p [permission::permission_p -object_id $room_id -privilege "chat_moderator"] } else { - # This is an unmoderate room, therefore everyone is a moderator. + # This is an unmoderated room, therefore, everyone is a moderator. set moderator_p "1" } if { ($read_p == 0 && $write_p == 0) || ($ban_p == 1) } { - #Display unauthorize privilege page. + # Display unauthorize privilege page. ad_returnredirect unauthorized ad_script_abort } Index: openacs-4/packages/forums/lib/message/post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v diff -u -r1.30.2.3 -r1.30.2.4 --- openacs-4/packages/forums/lib/message/post.tcl 15 Jul 2019 14:49:06 -0000 1.30.2.3 +++ openacs-4/packages/forums/lib/message/post.tcl 5 Oct 2019 13:17:05 -0000 1.30.2.4 @@ -24,7 +24,7 @@ # # 'Simple' or 'Complex' (legacy) attachment style # -# - Simple (default): just allow to attach new files to a message using the file +# - Simple (default): just allow one to attach new files to a message using the file # widget during post, and using the attachments package API to 'attach' them # to the message. # 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 -r1.48.2.1 -r1.48.2.2 --- openacs-4/packages/forums/www/message-post.tcl 19 Jun 2019 15:59:27 -0000 1.48.2.1 +++ openacs-4/packages/forums/www/message-post.tcl 5 Oct 2019 13:17:05 -0000 1.48.2.2 @@ -40,11 +40,12 @@ ############################## # 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 + # No parent_id was specified, therefore, we need the forums info + # to check permissions ant to check the forums settings, whether + # new threads are allowed in general. forum::get -forum_id $forum_id -array forum if { ![permission::permission_p -object_id $forum_id -privilege "forum_moderate"] } {