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.5 -r1.30.2.6 --- openacs-4/packages/forums/lib/message/post.tcl 25 Jan 2022 16:44:25 -0000 1.30.2.5 +++ openacs-4/packages/forums/lib/message/post.tcl 25 Jan 2022 16:47:20 -0000 1.30.2.6 @@ -289,9 +289,11 @@ set permissions(moderate_p) [permission::permission_p -object_id $forum_id -privilege "forum_moderate"] - db_transaction { - if { $permissions(moderate_p) } { - forum::message::set_state -message_id $message_id -state "approved" + if { $permissions(moderate_p) } { + db_transaction { + forum::message::set_state \ + -message_id $message_id \ + -state "approved" } }