Index: openacs-4/contrib/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/Attic/respond.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/survey/www/respond.tcl	15 Feb 2004 13:56:12 -0000	1.3
+++ openacs-4/contrib/packages/survey/www/respond.tcl	13 Jan 2005 13:54:40 -0000	1.4
@@ -97,17 +97,29 @@
     set section_ids [survey_next_sections -edit_p t $survey_id 0 $response_id]
 }
 
-ad_form -name take_survey -action process-response -html {enctype multipart/form-data} -form {
+ad_form -name take_survey -html {enctype multipart/form-data} -form {
     {survey_id:text(hidden) {value $survey_id}}
     {section_ids:text(hidden) {value $section_ids}}
     {response_id:text(hidden) {value $response_id}}
     {return_url:text(hidden) {value $return_url}}
 }
 
 foreach section_id $section_ids {
-    survey_section_add_to_form take_survey $section_id $response_id
+    survey::form::add_survey_section \
+        -form take_survey \
+        -section_id $section_id \
+        -response_id $response_id \
+        -edit_p $edit_p
 }
 
+ad_form \
+    -extend  \
+    -name take_survey \
+    -after_submit {
+        rp_internal_redirect "/packages/survey/www/process-response"
+        ad_script_abort
+    }
+
 # status bar
 set status_bar [survey_status_bar [lindex $section_ids 0]]