Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	22 Jan 2002 20:02:40 -0000	1.6
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	23 Jan 2002 00:26:10 -0000	1.7
@@ -55,6 +55,7 @@
   <querytext>
     update portal_element_map
     set region = :region,
+    page_id = :page_id,
     sort_key = (select nvl((select max(pem.sort_key) + 1
 	                    from portal_element_map pem, portal_pages pp
 	                    where pp.portal_id = :portal_id 
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.102 -r1.103
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Jan 2002 23:55:23 -0000	1.102
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 00:26:10 -0000	1.103
@@ -464,6 +464,7 @@
 	    "Show Here" {
 		set region [ns_set get $form region]
 		set element_id [ns_set get $form element_id]
+		set page_id [ns_set get $form page_id]
 		
 		db_transaction {
 		    # The new element's sk will be the last in the region
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.25 -r1.26
--- openacs-4/packages/new-portal/www/place-element.adp	23 Jan 2002 00:12:28 -0000	1.25
+++ openacs-4/packages/new-portal/www/place-element.adp	23 Jan 2002 00:26:10 -0000	1.26
@@ -1,8 +1,7 @@
-
-<!-- place-element.adp begin -->
 <form method=post action=@action_string@>
 <input type=hidden name=portal_id value=@portal_id@>
 <input type=hidden name=region value=@region@>
+<input type=hidden name=page_id value=@page_id@>
 
 <table border=1 width="100%">
 <tr>
@@ -52,7 +51,8 @@
 <if @show_avail_p@ ne 0>
 <br>
 @show_html@
-</select><input type=submit name="op" value="Show Here">
+</select>
+<input type=submit name="op" value="Show Here">
 </if>
 
 </td>