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]