Index: openacs-4/packages/forums/www/moderate/move-thread.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move-thread.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/forums/www/moderate/move-thread.tcl 7 Aug 2017 23:48:12 -0000 1.8 +++ openacs-4/packages/forums/www/moderate/move-thread.tcl 27 Sep 2017 15:39:40 -0000 1.9 @@ -13,12 +13,12 @@ set table_border_color [parameter::get -parameter table_border_color] -# Check that the user can moderate the forum -forum::security::require_moderate_message -message_id $msg_id - # Select the stuff forum::message::get -message_id $msg_id -array message +# Check that the user can moderate the forum +forum::security::require_moderate_forum -forum_id $message(forum_id) + #form to confirm ad_form -name confirmed_move -mode {display} \ -actions [list [list [_ forums.Yes] yes] [list No no] ] \