Index: openacs-4/packages/forums/lib/message/choose_thread_move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_thread_move.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/forums/lib/message/choose_thread_move.tcl	8 Aug 2006 21:26:50 -0000	1.3
@@ -0,0 +1,58 @@
+# packages/forums/admin/moderate/choose_message_move.tcl
+
+ad_page_contract {
+
+	Show a list of available messages so that user can choose one.
+
+	@author Natalia Perez (nperper@it.uc3m.es)
+	@creation-date 2005-03-17	
+} {
+    {return_url "../message-view"}
+} -properties {
+	context:onevalue
+} -validate {
+} -errors {
+}
+
+ template::list::create \
+    -name available_messages \
+    -multirow messages \
+    -key message_id \
+    -elements {
+        selected {
+	    label #forums.Selected#
+	    display_template {
+	        <input name="selected_message" value="@messages.message_id@" type="radio">		
+	    }
+	}
+	message_id {
+	    hide_p 1
+	}
+	forum_id {
+	    label #forums.Name_of_forum#
+	    display_col name
+	}
+	message_subject {
+	    label #forums.Message_Subject#
+	    display_col subject
+	}
+    }
+
+
+db_0or1row get_package_id "select distinct(package_id) from forums_forums where forum_id = $message(forum_id)"        
+db_multirow messages get_messages "
+    select fm.forum_id, fm.message_id, fm.subject, ff.name 
+    from forums_messages fm, forums_forums ff
+    where ff.package_id = :package_id and ff.enabled_p='t' and fm.message_id <> $message(message_id) and fm.parent_id is null
+    and fm.forum_id = ff.forum_id
+    order by fm.forum_id
+"
+
+
+set msg_id $message(message_id)
+
+# set context & title
+set context [list "[_ forums.Available_Messages]"]
+set title "[_ forums.Available_Messages]"
+
+