Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v diff -u -r1.32.2.2 -r1.32.2.3 --- openacs-4/packages/forums/lib/message/threads-chunk.tcl 30 Aug 2022 13:08:29 -0000 1.32.2.2 +++ openacs-4/packages/forums/lib/message/threads-chunk.tcl 20 Mar 2023 13:28:49 -0000 1.32.2.3 @@ -40,9 +40,7 @@ # 1. Users can create new threads or user is a moderator if { $permissions(post_p) } { - if {($permissions(moderate_p) || - [forum::new_questions_allowed_p -forum_id $forum_id]) - } { + if { $permissions(moderate_p) || $forum(new_questions_allowed_p) } { lappend actions [_ forums.Post_a_New_Message] \ [export_vars -base "${base_url}message-post" { forum_id }] [_ forums.Post_a_New_Message] } Index: openacs-4/packages/forums/tcl/forums-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v diff -u -r1.38.2.3 -r1.38.2.4 --- openacs-4/packages/forums/tcl/forums-procs.tcl 24 Feb 2023 13:19:57 -0000 1.38.2.3 +++ openacs-4/packages/forums/tcl/forums-procs.tcl 20 Mar 2023 13:28:49 -0000 1.38.2.4 @@ -269,11 +269,17 @@ } } -ad_proc -public forum::new_questions_allowed_p { +ad_proc -deprecated forum::new_questions_allowed_p { {-forum_id:required} {-party_id ""} } { Check if the users can create new threads in the forum + + DEPRECATED: the forum::get api already retrieves this information + and there is normally no need to invoke this api + specifically. + + @see forum::get } { if { $party_id ne "" } { ad_log warning "Attribute party_id is deprecated and was ignored." Index: openacs-4/packages/forums/tcl/test/forums-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/test/forums-procs.tcl,v diff -u -r1.11.2.8 -r1.11.2.9 --- openacs-4/packages/forums/tcl/test/forums-procs.tcl 20 Mar 2023 13:17:13 -0000 1.11.2.8 +++ openacs-4/packages/forums/tcl/test/forums-procs.tcl 20 Mar 2023 13:28:49 -0000 1.11.2.9 @@ -232,7 +232,6 @@ acs_community_member_admin_url ds_adp_start_box ds_adp_end_box - forum::new_questions_allowed_p forums::form::forum } \ -urls { @@ -280,7 +279,6 @@ forum::delete forum::get forum::new - forum::new_questions_allowed_p forums::form::forum forums::form::search } \ @@ -344,7 +342,6 @@ forum::edit forum::get forum::new - forum::new_questions_allowed_p forums::form::forum forums::form::search } \ @@ -407,7 +404,6 @@ ds_adp_end_box ad_form forum::format::emoticons - forum::new_questions_allowed_p forum::security::can_post_forum_p forum::security::permissions forum::security::require_moderate_forum