Index: openacs-4/packages/survey/www/admin/question-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-swap.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/question-swap.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/question-swap.tcl	18 Sep 2002 12:15:21 -0000	1.2
@@ -30,8 +30,6 @@
 where section_id = :section_id
 and sort_order in (:sort_order, :next_sort_order)"
 
-ad_returnredirect "one?survey_id=$survey_id&#${sort_order}"
-
 } on_error {
 
     ad_return_error "Database error" "A database error occured while trying
@@ -40,5 +38,7 @@
 $errmsg
 </pre>
 "
+    ad_script_abort
 }
+ad_returnredirect "one?survey_id=$survey_id&#${sort_order}"