Index: openacs-4/packages/new-portal/www/element-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-swap.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/element-swap.tcl	24 Oct 2001 17:55:35 -0000	1.1
@@ -0,0 +1,23 @@
+# www/element-move.tcl
+ad_page_contract {
+    Move an element up or down one space in an area.
+
+    @author Arjun Sanyal
+    @creation-date 10/20/2001
+    @cvs_id $Id: element-swap.tcl,v 1.1 2001/10/24 17:55:35 oracle Exp $
+} {
+    portal_id:naturalnum,notnull
+    element_id:naturalnum,notnull
+    sort_key:naturalnum,notnull
+    region:notnull
+    direction:notnull
+}
+
+ad_require_permission $portal_id portal_read_portal
+ad_require_permission $portal_id portal_edit_portal
+
+# AKS: XXX locked areas
+
+portal::swap_element $portal_id $element_id $sort_key $region $direction
+
+ns_returnredirect "portal-config?portal_id=$portal_id"