Index: openacs-4/packages/forums/www/moderate/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/forums/www/moderate/move.tcl 13 Nov 2017 14:31:27 -0000 1.9 +++ openacs-4/packages/forums/www/moderate/move.tcl 13 Nov 2017 15:35:09 -0000 1.10 @@ -37,7 +37,7 @@ } #get the name of forum where the thread will be moved -forums::get -forum_id $selected_forum -array forum +forum::get -forum_id $selected_forum -array forum set name $forum(name) # Confirmed @@ -69,15 +69,15 @@ # update final forum: increase thread_count, approved_thread_count # and max_child_sortkey, update last_post - forums::get -forum_id $forum_id -array forum + forum::get -forum_id $forum_id -array forum set max_child_sortkey $forum(max_child_sortkey) set thread_count $forum(thread_count) set approved_thread_count $forum(approved_thread_count) db_dml forums::move_message::update_forums_final {} # update initial forum: decrease thread_count, # approved_thread_count and max_child_sortkey, update last_post - forums::get -forum_id $message(forum_id) -array forum + forum::get -forum_id $message(forum_id) -array forum set max_child_sortkey $forum(max_child_sortkey) set thread_count $forum(thread_count) set approved_thread_count $forum(approved_thread_count) Index: openacs-4/packages/forums/www/moderate/move.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/moderate/move.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/forums/www/moderate/move.xql 13 Nov 2017 14:31:27 -0000 1.3 +++ openacs-4/packages/forums/www/moderate/move.xql 13 Nov 2017 15:41:46 -0000 1.4 @@ -48,7 +48,7 @@ update forums_reading_info set - forum_id (select forum_id from forums_messages + forum_id = (select forum_id from forums_messages where message_id = $message(message_id)) where root_message_id = $message(message_id)