Index: openacs-4/packages/simple-survey/www/admin/edit-logic.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/edit-logic.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simple-survey/www/admin/edit-logic.tcl	18 Sep 2002 14:55:00 -0000	1.4
+++ openacs-4/packages/simple-survey/www/admin/edit-logic.tcl	20 Jan 2018 23:02:29 -0000	1.5
@@ -26,6 +26,7 @@
 
 if { $exception_count > 0 } {
     ad_return_complaint $exception_count $exception_text
+    ad_script_abort
 }
 
 # get the existing logic
@@ -57,4 +58,4 @@
 </form>
 [ad_footer]
 "
-
+ad_script_abort
Index: openacs-4/packages/simple-survey/www/admin/modify-responses.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/modify-responses.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/admin/modify-responses.tcl	10 Sep 2002 22:23:23 -0000	1.3
+++ openacs-4/packages/simple-survey/www/admin/modify-responses.tcl	20 Jan 2018 23:02:29 -0000	1.4
@@ -83,3 +83,4 @@
 
 [ad_footer]
 "
+ad_script_abort
Index: openacs-4/packages/simple-survey/www/admin/question-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-delete.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/simple-survey/www/admin/question-delete.tcl	18 Sep 2002 12:14:55 -0000	1.5
+++ openacs-4/packages/simple-survey/www/admin/question-delete.tcl	20 Jan 2018 23:02:29 -0000	1.6
@@ -59,12 +59,12 @@
 [ad_context_bar [list "one?[export_url_vars survey_id]" "Administer Survey"] "Delete Question"]
 
 <hr>
-
 Deleting this question will also delete all $n_responses responses. Really delete?
 <p>
 <a href=\"question-delete-2?[export_url_vars question_id]\">Yes</a> / 
 <a href=\"one?[export_url_vars survey_id]\">No</a>
 
 [ad_footer]
 "
+    ad_script_abort
 }
Index: openacs-4/packages/simple-survey/www/admin/response-drill-down.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/response-drill-down.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/admin/response-drill-down.tcl	10 Sep 2002 22:23:23 -0000	1.3
+++ openacs-4/packages/simple-survey/www/admin/response-drill-down.tcl	20 Jan 2018 23:02:29 -0000	1.4
@@ -96,4 +96,4 @@
 
 [ad_footer]
 "
-
+ad_script_abort
Index: openacs-4/packages/simple-survey/www/admin/survey-create-choice.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-create-choice.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/admin/survey-create-choice.tcl	10 Sep 2002 22:23:23 -0000	1.3
+++ openacs-4/packages/simple-survey/www/admin/survey-create-choice.tcl	20 Jan 2018 23:02:29 -0000	1.4
@@ -42,3 +42,4 @@
 "
 
 doc_return 200 text/html $whole_page
+ad_script_abort
Index: openacs-4/packages/simple-survey/www/admin/survey-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-create.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simple-survey/www/admin/survey-create.tcl	10 Sep 2002 22:23:23 -0000	1.6
+++ openacs-4/packages/simple-survey/www/admin/survey-create.tcl	20 Jan 2018 23:02:29 -0000	1.7
@@ -38,6 +38,7 @@
 
 if { $exception_count > 0 } {
     ad_return_complaint $exception_count $exception_text
+    ad_script_abort
 }
 
 # function to insert survey type-specific form html