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.134 -r1.135
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	27 Apr 2002 22:02:10 -0000	1.134
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	8 May 2002 14:37:00 -0000	1.135
@@ -469,6 +469,7 @@
             set element_list [array get fake_element_ids]
 
             set page_name_chunk "
+            <a name=$page_id></a>
             <form method=post action=@action_string@>
             <input type=hidden name=portal_id value=@portal_id@>
             <input type=hidden name=page_id value=$page_id>
@@ -544,13 +545,13 @@
 
     ad_proc -public configure_dispatch { 
         {-template_p "f"}
-        portal_id
-        form
+        {-portal_id:required}
+        {-form:required}
     } {
         Dispatches the configuration operation. 
         We get the target region number from the op.
 
-        @param portal_id
+        @param portal_id the portal to edit
         @param formdata an ns_set with all the formdata
     } { 
 
Index: openacs-4/packages/new-portal/www/place-element-other-page.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element-other-page.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/new-portal/www/place-element-other-page.adp	16 Apr 2002 13:55:44 -0000	1.5
+++ openacs-4/packages/new-portal/www/place-element-other-page.adp	8 May 2002 14:37:00 -0000	1.6
@@ -24,6 +24,7 @@
 
 <if @other_page_avail_p@ ne 0>
   <input type=hidden name=element_id value=@element_id@>
+  <input type=hidden name=anchor value=@page_id@>
   <input type=submit name="op" value="Move to page">
   <select name=page_id>
   <multiple name=pages>
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.33 -r1.34
--- openacs-4/packages/new-portal/www/place-element.adp	16 Apr 2002 15:11:32 -0000	1.33
+++ openacs-4/packages/new-portal/www/place-element.adp	8 May 2002 14:37:00 -0000	1.34
@@ -33,32 +33,32 @@
   <hr>
 </if>
 
-  @element_multi.name@
+    @element_multi.name@
 
     <if @element_multi.state@ ne "pinned">
 
     <!-- hide link and arrows begin - refactor with tempate? -->
 
-      <small>[<a href="@action_string@?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@&return_url=@return_url@">hide</a>]</small>
+      <small>[<a href="@action_string@?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">hide</a>]</small>
 
     <if @element_multi:rowcount gt 1>
       <if @element_multi.rownum@ gt 1>
-        <a href="@action_string@?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&direction=up&page_id=@page_id@&return_url=@return_url@"><img border=0 src="@imgdir@/arrow-up.gif" alt="move up"></a>
+        <a href="@action_string@?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&direction=up&page_id=@page_id@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@imgdir@/arrow-up.gif" alt="move up"></a>
       </if>
       <if @element_multi:rowcount@ gt @element_multi.rownum@>
-        <a href="@action_string@?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&direction=down&page_id=@page_id@&return_url=@return_url@"><img border=0 src="@imgdir@/arrow-down.gif" alt="move down"></a>
+        <a href="@action_string@?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&direction=down&page_id=@page_id@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@imgdir@/arrow-down.gif" alt="move down"></a>
       </if>
     </if>
 
     <if @num_regions@ gt 1>
 	<if @region@ eq 1>
-	<a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@"><img border=0 src="@imgdir@/arrow-right.gif" alt="move right"></a>
+	<a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@imgdir@/arrow-right.gif" alt="move right"></a>
 	</if>
 	<if @region@ gt 1 and @region@ lt @num_regions@>
-	<a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@"><img border=0 src="@imgdir@/arrow-left.gif" alt="move left"></a>
+	<a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@imgdir@/arrow-left.gif" alt="move left"></a>
 	<a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@"><img border=0 src="@imgdir@/arrow-right.gif" alt="move right"></a>
 	</if>
-	<if @region@ eq @num_regions@><a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@"><img border=0 src="@imgdir@/arrow-left.gif" alt="move left"></a>
+	<if @region@ eq @num_regions@><a href="@action_string@?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@imgdir@/arrow-left.gif" alt="move left"></a>
 	</if>
     </if>
 
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.31 -r1.32
--- openacs-4/packages/new-portal/www/place-element.tcl	2 Apr 2002 22:43:12 -0000	1.31
+++ openacs-4/packages/new-portal/www/place-element.tcl	8 May 2002 14:37:00 -0000	1.32
@@ -66,3 +66,4 @@
 }
 
 set imgdir "[portal::mount_point]/place-element-components"        
+set location [ad_conn location]
Index: openacs-4/packages/new-portal/www/template-place-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/template-place-element.adp,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/new-portal/www/template-place-element.adp	16 Apr 2002 13:55:44 -0000	1.14
+++ openacs-4/packages/new-portal/www/template-place-element.adp	8 May 2002 14:37:00 -0000	1.15
@@ -18,7 +18,6 @@
 
 %>
 
-
 <!-- template-place-element.adp begin -->
 <form method=post action=@action_string@>
 
@@ -29,63 +28,62 @@
 <multiple name=element_multi>
 <hr>
 
+@element_multi.name@ - @element_multi.description@</a>
 
-@element_multi.name@ - @element_multi.description@
-
 <br>
 
 <!-- refactor with other? -->
 
     <if @element_multi:rowcount gt 1>
       <if @element_multi.rownum@ gt 1>
-        <a href="@target_stub@-2?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&sort_key=@element_multi.sort_key@&direction=up&return_url=@return_url@"><img border=0 src="@dir@/arrow-up.gif" alt="move up"></a>
+        <a href="@target_stub@-2?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&sort_key=@element_multi.sort_key@&direction=up&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-up.gif" alt="move up"></a>
       </if>
       <if @element_multi:rowcount@ gt @element_multi.rownum@>
-        <a href="@target_stub@-2?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&sort_key=@element_multi.sort_key@&direction=down&return_url=@return_url@"><img border=0 src="@dir@/arrow-down.gif" alt="move down"></a>
+        <a href="@target_stub@-2?portal_id=@portal_id@&region=@region@&op=swap&element_id=@element_multi.element_id@&sort_key=@element_multi.sort_key@&direction=down&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-down.gif" alt="move down"></a>
       </if>
     </if>
 
     <if @num_regions@ gt 1>
         <if @region@ eq 1>
-        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@"><img border=0 src="@dir@/arrow-right.gif" alt="move right"></a>
+        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-right.gif" alt="move right"></a>
         </if>
 
         <if @region@ gt 1 and @region@ lt @num_regions@>
-        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@"><img border=0 src="@dir@/arrow-left.gif" alt="move left"></a>
-        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@"><img border=0 src="@dir@/arrow-right.gif" alt="move right"></a>
+        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=left&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-left.gif" alt="move left"></a>
+        <a href="@target_stub@-2?portal_id=@portal_id@&op=move&element_id=@element_multi.element_id@&direction=right&region=@region@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-right.gif" alt="move right"></a>
         </if>
-        <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@&return_url=@return_url@"><img border=0 src="@dir@/arrow-left.gif" alt="move left"></a>     
+        <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@&return_url=@return_url@&anchor=@page_id@"><img border=0 src="@dir@/arrow-left.gif" alt="move left"></a>     
         </if>
     </if>
 
 <!-- refactor with other? -->
 
 <p align=left>
 
-Shown? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@&return_url=@return_url@">hide this element</a>]
+Shown? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=hide&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">hide this element</a>]
 
 <BR>
 
 <if @element_multi.state@ ne "pinned">
-User Movable? Yes, Unpinned [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_pinned&element_id=@element_multi.element_id@&return_url=@return_url@">Pin</a>]
+User Movable? Yes, Unpinned [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_pinned&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">Pin</a>]
 </if>
-<else>User Movable? No, Pinned [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_pinned&element_id=@element_multi.element_id@&return_url=@return_url@">Unpin</a>]
+<else>User Movable? No, Pinned [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_pinned&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">Unpin</a>]
 </else>
 
 <BR>
 
 <if @element_multi.hideable_p@ eq "t">
-User Hideable? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_hideable&element_id=@element_multi.element_id@&return_url=@return_url@">don't allow hiding</a>]
+User Hideable? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_hideable&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">don't allow hiding</a>]
 </if>
-<else>User Hideable? No [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_hideable&element_id=@element_multi.element_id@&return_url=@return_url@">allow hiding</a>]
+<else>User Hideable? No [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_hideable&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">allow hiding</a>]
 </else>
 
 <BR>
 
 <if @element_multi.shadeable_p@ eq "t">
-User Shadeable? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_shadeable&element_id=@element_multi.element_id@&return_url=@return_url@">don't allow shading</nobr></a>]
+User Shadeable? Yes [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_shadeable&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@&anchor=@page_id@">don't allow shading</nobr></a>]
 </if>
-<else>User Shadeable? No [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_shadeable&element_id=@element_multi.element_id@&return_url=@return_url@">allow shading</a>]
+<else>User Shadeable? No [<a href="@target_stub@-2?portal_id=@portal_id@&op=toggle_shadeable&element_id=@element_multi.element_id@&return_url=@return_url@&anchor=@page_id@">allow shading</a>]
 </else>
 
 </form>
@@ -108,7 +106,8 @@
 <input type=hidden name=portal_id value=@portal_id@>
 <input type=hidden name=page_id value=@page_id@>
 <input type=hidden name=region value=@region@>
-<input type=hidden name=return_url value=@return_url@>
+<input type=hidden name=return_url value=@return_url@
+<input type=hidden name=anchor value=@page_id@>
 </form>
 
 </if>
Index: openacs-4/packages/new-portal/www/admin/portal-config-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/portal-config-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/www/admin/portal-config-2.tcl	16 Apr 2002 13:55:46 -0000	1.3
+++ openacs-4/packages/new-portal/www/admin/portal-config-2.tcl	8 May 2002 14:37:00 -0000	1.4
@@ -26,10 +26,9 @@
 set form [ns_getform]
 set portal_id [ns_set get $form portal_id]
 set return_url [ns_set get $form return_url]
+set anchor [ns_set get $form anchor]
 
-set user_id [ad_conn user_id]
+portal::configure_dispatch -portal_id $portal_id -form $form
 
-portal::configure_dispatch $portal_id $form
+ns_returnredirect "portal-config?portal_id=$portal_id&referer=$return_url#$anchor"
 
-ns_returnredirect "portal-config?portal_id=$portal_id&referer=$return_url"
-
Index: openacs-4/packages/new-portal/www/admin/portal-config.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/portal-config.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/new-portal/www/admin/portal-config.tcl	16 Apr 2002 13:55:46 -0000	1.6
+++ openacs-4/packages/new-portal/www/admin/portal-config.tcl	8 May 2002 14:37:00 -0000	1.7
@@ -35,5 +35,9 @@
     set template_p "f"
 }
 
-set rendered_page [portal::configure -referer $referer -template_p $template_p $portal_id ""]
+set rendered_page [portal::configure \
+        -referer $referer \
+        -template_p $template_p \
+        $portal_id ""
+]
 set name [portal::get_name $portal_id]