Index: openacs-4/packages/forums/lib/message/choose_forum_move.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_forum_move.adp,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_forum_move.adp	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,17 +0,0 @@
-<property name="title">@title;noquote@</property>
-<property name="context">@context;noquote@</property>
-  
-<p> #forums.Move_thread_to_forum#</p>
-  
-<form name="input" action="move"  method="get">
-<input type="hidden" name="message_id" value="@message_id@">
-<input type="hidden" name="confirm_p" value="@confirm_p@">
-<if @forums:rowcount@ eq 0>
-  <p>#forums.Sorry_you_can_not_move_this_thread_There_are_no_other_forums#
-</if>
-<else>
-<listtemplate name="available_forums"></listtemplate>
-<p></p>
-<input type="submit" value="#forums.Move_thread#">
-</else>
-</form>
\ No newline at end of file
Index: openacs-4/packages/forums/lib/message/choose_forum_move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_forum_move.tcl,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_forum_move.tcl	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,49 +0,0 @@
-# packages/forums/admin/moderate/choose_forum_move.tcl
-
-ad_page_contract {
-
-	Show a list of available forums so that user can choose one.
-
-	@author Natalia Perez (nperper@it.uc3m.es)
-	@creation-date 2005-03-15	
-} {
-    {return_url "../message-view"}
-} -properties {
-	context:onevalue
-} -validate {
-} -errors {
-}
-
-
- template::list::create \
-    -name available_forums \
-    -multirow forums \
-    -key forum_id \
-    -elements {
-        selected {
-	    label #forums.Selected#
-	    display_template {
-	        <input name="selected_forum" value="@forums.forum_id@" type="radio">
-	    }
-	}
-	forum_id {
-	    hide_p 1
-	}
-	forum_name {
-	    label #forums.Forum_Name#
-	    display_col name
-	}
-	}
-
-db_0or1row get_package_id "select distinct(package_id) from forums_forums where forum_id = $message(forum_id)"
-db_multirow forums get_forums "
-    select forum_id, name from forums_forums where forum_id <> $message(forum_id) and package_id = :package_id and enabled_p = 't'
-"
-
-set message_id $message(message_id)
-
-# set context & title
-set context [list "[_ forums.Available_Forums]"]
-set title "[_ forums.Available_Forums]"
-
-		
Index: openacs-4/packages/forums/lib/message/choose_message_move-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_message_move-oracle.xql,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_message_move-oracle.xql	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-    
-    <fullquery name="get_tree_sortkey">
-        <querytext>
-            select substr(tree_sortkey, 0, 6) as father_tree_sortkey 
-	    from forums_messages 
-	    where message_id=$message(message_id)
-
-        </querytext>
-    </fullquery>
-    
-
-    <fullquery name="get_parent_id">
-        <querytext>
-            select parent_id
-	    from forums_messages
-	    where forum_id = $message(forum_id) and tree_sortkey between tree.left('$father_tree_sortkey') and tree.right('$father_tree_sortkey') 
-	    order by tree_sortkey desc
-
-        </querytext>
-    </fullquery>
-
-</queryset>
Index: openacs-4/packages/forums/lib/message/choose_message_move-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_message_move-postgresql.xql,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_message_move-postgresql.xql	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-    
-    <fullquery name="get_tree_sortkey">
-        <querytext>
-            select substring(tree_sortkey, 0, 9) as father_tree_sortkey 
-	    from forums_messages 
-	    where message_id=$message(message_id)
-
-        </querytext>
-    </fullquery>
-    
-
-    <fullquery name="get_parent_id">
-        <querytext>
-            select parent_id
-            from forums_messages
-            where forum_id = $message(forum_id) and tree_sortkey between tree_left('$father_tree_sortkey') and tree_right('$father_tree_sortkey') 
-	    order by tree_sortkey desc
-
-        </querytext>
-    </fullquery>
-
-</queryset>
Index: openacs-4/packages/forums/lib/message/choose_message_move.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_message_move.adp,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_message_move.adp	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,17 +0,0 @@
-<property name="title">@title;noquote@</property>
-<property name="context">@context;noquote@</property>
-  
-<p> #forums.Move_message_to_message#</p>
-  
-<form name="input" action="move-thread" method="get">
-<input type="hidden" name="msg_id" value="@msg_id@">
-<input type="hidden" name="confirm_p" value="@confirm_p@">
-<if @messages:rowcount@ eq 0 >
-    <p>#forums.Sorry_you_can_not_move_this_message_There_are_no_other_threads#</p>    
-</if>
-<else>
-<listtemplate name="available_messages"></listtemplate>
-<p></p>
-<input type="submit" value="#forums.Move_message#">
-</else>
-</form>
\ No newline at end of file
Index: openacs-4/packages/forums/lib/message/choose_message_move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_message_move.tcl,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_message_move.tcl	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,51 +0,0 @@
-# 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
-	}
-	message_subject {
-	    label #forums.Message_Subject#
-	    display_col subject
-	}
-    }
-
-db_0or1row get_tree_sortkey { }
-        
-db_foreach get_parent_id { } {    
-    db_multirow messages get_messages "
-        select message_id, subject from forums_messages where forum_id = $message(forum_id) and message_id <> $message(message_id) and parent_id is null and message_id <> :parent_id
-    "
-}
-
-set msg_id $message(message_id)
-
-# set context & title
-set context [list "[_ forums.Available_Messages]"]
-set title "[_ forums.Available_Messages]"
-
-		
Index: openacs-4/packages/forums/lib/message/choose_thread_move.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/choose_thread_move.adp,v
diff -u -N
--- openacs-4/packages/forums/lib/message/choose_thread_move.adp	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,17 +0,0 @@
-<property name="title">@title;noquote@</property>
-<property name="context">@context;noquote@</property>
-  
-<p> #forums.Move_thread_to_thread#</p>
-  
-<form name="input" action="move-thread-thread" method="get">
-<input type="hidden" name="msg_id" value="@msg_id@">
-<input type="hidden" name="confirm_p" value="@confirm_p@">
-<if @messages:rowcount@ eq 0>
-    #forums.Sorry_you_can_not_move_this_thread_There_are_no_more_threads#
-</if>
-<else>
-<listtemplate name="available_messages"></listtemplate>
-<p></p>
-<input type="submit" value="#forums.Move_thread#">
-</else>
-</form>
\ No newline at end of file
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
--- openacs-4/packages/forums/lib/message/choose_thread_move.tcl	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,58 +0,0 @@
-# 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]"
-
-