Index: openacs-4/packages/new-portal/www/element-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-move.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/element-move.tcl	24 Oct 2001 15:58:04 -0000	1.1
@@ -0,0 +1,25 @@
+# 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-move.tcl,v 1.1 2001/10/24 15:58:04 oracle Exp $
+} {
+    portal_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
+
+db_dml move_element \
+    "begin
+       portal_element.move(portal_id => :portal_id, region => :region, sort_key => :sort_key, direction => :direction);
+     end;"
+
+ns_returnredirect "portal-config?portal_id=$portal_id"