Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.99 -r1.100
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Jan 2002 20:02:40 -0000	1.99
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Jan 2002 20:51:49 -0000	1.100
@@ -399,7 +399,7 @@
                 <P>
                 Debug: element_list $element_list, layout_id $layout_id
                 <P>
-                :</b>
+                </b>
                 <include src=\"$portal(template)\" element_list=\"$element_list\" 
                 action_string=@action_string@ portal_id=@portal_id@
                 return_url=\"@return_url@\" element_src=\"@element_src@\"
@@ -463,6 +463,14 @@
 		    db_dml show_here_update_state {}
 		}		
 	    }
+            "move_to_page" {
+		set page_id [ns_set get $form page_id]
+		set element_id [ns_set get $form element_id]
+                
+                #ad_return_complaint 1 "$page_id/$element_id"
+
+                db_dml move_to_page {} 
+	    }
 	    "hide" {
 		set element_id_list [list]
 		
Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	22 Jan 2002 20:02:40 -0000	1.10
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	22 Jan 2002 20:51:49 -0000	1.11
@@ -105,6 +105,13 @@
     where element_id = :element_id
   </querytext>
 </fullquery> 
+<fullquery name="portal::configure_dispatch.move_to_page">      
+  <querytext>
+    update portal_element_map
+    set page_id = :page_id
+    where element_id = :element_id
+  </querytext>
+</fullquery> 
 
 <fullquery name="portal::configure_dispatch.hide_update">      
   <querytext>
Index: openacs-4/packages/new-portal/www/place-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element.adp,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/new-portal/www/place-element.adp	22 Jan 2002 20:02:40 -0000	1.21
+++ openacs-4/packages/new-portal/www/place-element.adp	22 Jan 2002 20:51:49 -0000	1.22
@@ -32,15 +32,21 @@
 	<if @region@ eq @num_regions@><a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@"><img border=0 src="@dir@/arrow-left.gif" alt="move left"></a>
 	</if>
 
-            <if @element_multi.hideable_p@ eq "t">
-            [<a href="@target_stub@-2?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@">hide</a>]    
-            </if>
-    </if>
+        <BR>
 
+        <if @element_multi.hideable_p@ eq "t">
+        <small>[<a href="@target_stub@-2?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@">hide</a>]</small>
+        </if>
 
+        <if @other_page_avail_p@ ne 0>
+        <small><multiple name=pages>
+        [<a href="@target_stub@-2?portal_id=@portal_id@&op=move_to_page&element_id=@element_multi.element_id@&page_id=@pages.page_id@">move to @pages.pretty_name@</a>]    
+        </multiple>
+</small>
+        </if>
+    </if>
 
 
-
     <br>
 </multiple>
 
@@ -52,12 +58,6 @@
 </select><input type=submit name="op" value="Show Here">
 </if>
 
-<if @other_page_avail_p@ ne 0>
-<br>
-@other_page_html@
-</select><input type=submit name="op" value="Show On Other Page">
-</if>
-
 </td>
 </tr>
 </table>
Index: openacs-4/packages/new-portal/www/place-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/new-portal/www/place-element.tcl	22 Jan 2002 20:02:40 -0000	1.25
+++ openacs-4/packages/new-portal/www/place-element.tcl	22 Jan 2002 20:51:49 -0000	1.26
@@ -76,19 +76,20 @@
 
 
 # moving to other pages
-set other_page_avail_p 0
-set other_page_html "<select name=page_id>"
+template::multirow create pages page_id pretty_name
 
 db_foreach other_pages_select {
     select page_id, pretty_name
-     from portal_pages pem
+     from portal_pages pp
      where
        pp.portal_id = :portal_id 
        and pp.page_id != :page_id
     order by sort_key
 } {
     set other_page_avail_p 1
-    append other_page_html "<option value=$element_id>$name</option>\n"
+
+    template::multirow append pages \
+            $page_id $pretty_name
 }
 
 set dir "[portal::mount_point]/place-element-components"