Index: openacs.org-dev/packages/portal/www/element-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/portal/www/element-move.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/portal/www/element-move.tcl	9 Jul 2002 17:35:10 -0000	1.1.1.1
+++ openacs.org-dev/packages/portal/www/element-move.tcl	8 Oct 2002 15:47:17 -0000	1.1.1.2
@@ -4,7 +4,7 @@
 
     @author Ian Baker (ibaker@arsdigita.com)
     @creation-date 1/22/2000
-    @cvs_id $Id$
+    @cvs-id $Id$
 } {
     portal_id:naturalnum,notnull,permission(write)
     sort_key:naturalnum,notnull
@@ -18,11 +18,12 @@
 # edit immutable areas?  (only with default portals)
 if { ! [portal_default_p $portal_id] && [portal_region_immutable_p $region] } {
     ad_return_complaint 1 "You can't edit this area."
+    ad_script_abort
 }
 
 db_dml move_element \
     "begin
        portal_element.move(portal_id => :portal_id, region => :region, sort_key => :sort_key, direction => :direction);
      end;"
 
-ns_returnredirect "element-layout?portal_id=$portal_id"
+ad_returnredirect "element-layout?portal_id=$portal_id"