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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/place-element-other-page.adp	23 Jan 2002 01:19:05 -0000	1.1
@@ -0,0 +1,5 @@
+<if @other_page_avail_p@ ne 0>
+  <multiple name=pages>
+    <small>[<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>]</small>
+  </multiple>
+</if>
Index: openacs-4/packages/new-portal/www/place-element-other-page.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element-other-page.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/place-element-other-page.tcl	23 Jan 2002 01:19:05 -0000	1.1
@@ -0,0 +1,17 @@
+# moving to other pages
+template::multirow create pages page_id pretty_name
+set other_page_avail_p 0
+
+db_foreach other_pages_select {
+    select page_id, pretty_name
+     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
+
+    template::multirow append pages \
+            $page_id $pretty_name
+}