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.5 -r1.38.2.6
--- openacs-4/packages/forums/tcl/forums-procs.tcl	20 Mar 2023 13:39:15 -0000	1.38.2.5
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	21 Mar 2023 13:52:15 -0000	1.38.2.6
@@ -36,8 +36,8 @@
     set forum_id [package_instantiate_object -var_list $var_list forums_forum]
 
     db_dml update_extra_cols {
-        update forums_forums set
-           new_questions_allowed_p = :new_questions_allowed_p,
+        update forums_forums
+       set new_questions_allowed_p = :new_questions_allowed_p,
            anonymous_allowed_p     = :anonymous_allowed_p,
            attachments_allowed_p   = :attachments_allowed_p
         where forum_id = :forum_id
@@ -76,8 +76,7 @@
 } {
     forum::get -forum_id $forum_id -array forum
     foreach var {
-        name charter presentation_type posting_policy
-        new_questions_allowed_p anonymous_allowed_p attachments_allowed_p} {
+        name charter presentation_type posting_policy new_questions_allowed_p anonymous_allowed_p attachments_allowed_p} {
         if {![info exists $var]} {
             set $var $forum($var)
         }
@@ -250,8 +249,7 @@
     }
 
     db_dml query {
-        update forums_forums set
-        new_questions_allowed_p = true
+        update forums_forums set new_questions_allowed_p = true
         where forum_id = :forum_id
     }
 }
@@ -271,8 +269,7 @@
     }
 
     db_dml query {
-        update forums_forums set
-        new_questions_allowed_p = false
+        update forums_forums set new_questions_allowed_p = false
         where forum_id = :forum_id
     }
 }