Index: openacs-4/contrib/packages/survey/lib/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/lib/Attic/respond.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/contrib/packages/survey/lib/respond.tcl	2 Sep 2004 15:17:47 -0000	1.1.2.1
+++ openacs-4/contrib/packages/survey/lib/respond.tcl	1 Jan 2005 17:38:59 -0000	1.1.2.2
@@ -89,10 +89,14 @@
 ad_form \
     -extend  \
     -name $form_name \
+    -on_request {
+        foreach section_id $section_ids {
+            survey::form::set_value_survey_section -form take_survey -section_id $section_id -response_id $response_id
+        }
+    } \
     -after_submit {
         rp_internal_redirect "/packages/survey/www/process-response"
         ad_script_abort
-#        ad_returnredirect $return_url
     }
 
 set style "survey/standard"