Index: openacs.org-dev/packages/simple-survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/simple-survey/www/process-response.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/simple-survey/www/process-response.tcl	9 Jul 2002 17:35:12 -0000	1.1.1.1
+++ openacs.org-dev/packages/simple-survey/www/process-response.tcl	8 Oct 2002 15:47:25 -0000	1.1.1.2
@@ -11,7 +11,7 @@
     
     @author  jsc@arsdigita.com
     @author  nstrug@arsdigita.com
-    @date    28th September 2000
+    @creation-date    28th September 2000
     @cvs-id $Id$
 } {
 
@@ -329,10 +329,9 @@
 
 	if {[info exists return_url] && ![empty_string_p $return_url]} {
 	    ad_returnredirect "$return_url"
-	    return
+            ad_script_abort
 	} else {
-            set context_bar [ad_context_bar_ws_or_index [list "./" "Surveys"] "Response Submitted for $survey_name"]
-	    ad_return_template
+            set context [list "Response Submitted"]
 	}
     }
 
@@ -353,25 +352,22 @@
 
 
 	if {[info exists return_url] && ![empty_string_p $return_url]} {
-
             db_release_unused_handles
 	    ad_returnredirect $return_url
-
         }
 
         eval $logic
 
         db_release_unused_handles
+        ad_script_abort
     }
 
     default {
 	if {[info exists return_url] && ![empty_string_p $return_url]} {
 	    ad_returnredirect "$return_url"
-	    return
+            ad_script_abort
 	} else {
-            set context_bar [ad_context_bar_ws_or_index [list "./" "Surveys"] "Response Submitted for $survey_name"]
-
-	    ad_return_template
+            set context {"Response Submitted"}
 	}	
     }
 }