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.24 -r1.25
--- openacs-4/packages/new-portal/www/place-element.tcl	21 Jan 2002 22:08:19 -0000	1.24
+++ openacs-4/packages/new-portal/www/place-element.tcl	22 Jan 2002 20:02:40 -0000	1.25
@@ -1,6 +1,6 @@
 # www/place-element.tcl
 ad_page_contract {
-    Place elements.
+    Place elements. IMPROVE ME
 
     @author Arjun Sanyal (arjun@openforce.net)
     @creation-date 9/28/2001
@@ -25,11 +25,11 @@
 
 db_foreach select_elements_by_region {
     select element_id, pem.pretty_name as name,  pem.sort_key, state
-    from portal_element_map pem, portal_current_page pcp
+    from portal_element_map pem, portal_pages pp
     where
-    pcp.portal_id = :portal_id 
-    and pcp.page_id = :page_id
-    and pem.page_id = pcp.page_id
+    pp.portal_id = :portal_id 
+    and pp.page_id = :page_id
+    and pem.page_id = pp.page_id
     and region = :region 
     and state != 'hidden'
     order by sort_key } {
@@ -62,11 +62,11 @@
 
 db_foreach hidden_elements {
     select element_id, name
-     from portal_element_map pem, portal_current_page pcp
+     from portal_element_map pem, portal_pages pp
      where
-       pcp.portal_id = :portal_id 
-       and pcp.page_id = :page_id
-       and pcp.page_id = pem.page_id
+       pp.portal_id = :portal_id 
+       and pp.page_id = :page_id
+       and pp.page_id = pem.page_id
        and pem.state = 'hidden'
     order by name
 } {
@@ -75,7 +75,20 @@
 }
 
 
-set dir "[portal::mount_point]/place-element-components"
+# moving to other pages
+set other_page_avail_p 0
+set other_page_html "<select name=page_id>"
 
-append show_html ""
-        
+db_foreach other_pages_select {
+    select page_id, pretty_name
+     from portal_pages pem
+     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"
+}
+
+set dir "[portal::mount_point]/place-element-components"