Index: openacs.org-dev/packages/simple-survey/www/admin/description-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/simple-survey/www/admin/description-edit-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/simple-survey/www/admin/description-edit-2.tcl	9 Jul 2002 17:35:12 -0000	1.1.1.1
+++ openacs.org-dev/packages/simple-survey/www/admin/description-edit-2.tcl	8 Oct 2002 15:47:27 -0000	1.1.1.2
@@ -10,7 +10,7 @@
 
     @author jsc@arsdigita.com
     @author nstrug@arsdigita.com
-    @date   February 16, 2000
+    @creation-date   February 16, 2000
     @cvs-id $Id$
 } {
     survey_id:integer
@@ -31,11 +31,11 @@
 
 if {$exception_count > 0} {
     ad_return_complaint $exception_count $exception_text
-    return
+    ad_script_abort
 }
 
 if {$checked_p == "f"} {
-    set context_bar [ad_context_bar_ws_or_index [list "index.tcl" "Simple Survey Admin"] [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"]
+    set context [list [list "one?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"]
 
     switch $desc_html {
 	"t" {
@@ -52,7 +52,6 @@
 	}
     }
 
-    ad_return_template
 } else {
  
 
@@ -63,6 +62,7 @@
 
     db_release_unused_handles
     ad_returnredirect "one?[export_url_vars survey_id]"
+    ad_script_abort
 }