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