Index: openacs.org-dev/packages/simple-survey/www/admin/question-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/simple-survey/www/admin/question-delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/simple-survey/www/admin/question-delete.tcl	9 Jul 2002 17:35:12 -0000	1.1.1.1
+++ openacs.org-dev/packages/simple-survey/www/admin/question-delete.tcl	8 Oct 2002 15:47:27 -0000	1.1.1.2
@@ -7,8 +7,8 @@
     @param  question_id  question we're about to delete
 
     @author jsc@arsdigita.com
-    @date   March 13, 2000
-    @cvs-id question-delete.tcl,v 1.5.2.4 2000/07/21 04:04:15 ron Exp
+    @creation-date   March 13, 2000
+    @cvs-id $Id$
 } {
 
     question_id:integer
@@ -45,18 +45,18 @@
 	</pre>
 	<p> Please go back using your browser.
 	"
-	return
+        ad_script_abort
     }
 
     db_release_unused_handles
     ad_returnredirect "one?survey_id=$survey_id"
-    return
+    ad_script_abort
 } else {
     
     doc_return 200 text/html "[ad_header "Confirm Question Deletion"]
 <h2>Really Delete?</h2>
 
-[ad_context_bar_ws_or_index [list "" "Simple Survey Admin"] [list "one?[export_url_vars survey_id]" "Administer Survey"] "Delete Question"]
+[ad_context_bar [list "one?[export_url_vars survey_id]" "Administer Survey"] "Delete Question"]
 
 <hr>