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 -r1.1 -r1.2
--- openacs-4/packages/new-portal/www/element-move.tcl	24 Oct 2001 15:58:04 -0000	1.1
+++ openacs-4/packages/new-portal/www/element-move.tcl	24 Oct 2001 16:22:03 -0000	1.2
@@ -7,6 +7,7 @@
     @cvs_id $Id$
 } {
     portal_id:naturalnum,notnull
+    element_id:naturalnum,notnull
     sort_key:naturalnum,notnull
     region:notnull
     direction:notnull
@@ -17,9 +18,6 @@
 
 # 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;"
+portal::move_element $portal_id $element_id $sort_key $region $direction
 
 ns_returnredirect "portal-config?portal_id=$portal_id"