Index: openacs-4/contrib/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/www/Attic/process-response.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/survey/www/process-response.tcl	12 Mar 2004 12:19:13 -0000	1.7
+++ openacs-4/contrib/packages/survey/www/process-response.tcl	13 Jan 2005 13:54:40 -0000	1.8
@@ -22,6 +22,7 @@
     response_to_question:array,optional,multiple,html
     response_id:integer,notnull
     {edit_p "f"}
+    {element_id ""}
 } -validate {
     sections_exist -requires { section_ids } {
 	foreach section_id $section_ids {
@@ -173,7 +174,7 @@
 	
 	if {[db_string get_response_count {}] == 0} {
 	    db_exec_plsql create_response {}
-	}
+    }
 	
 	set question_info_list [db_list_of_lists survey_question_info_list {}]
 
@@ -337,11 +338,13 @@
 
 # survey_do_notifications -response_id $response_id
 
+if {![empty_string_p $element_id]} {
+    ee::element::map_response -response_id $response_id -element_id $element_id
+}
 
-
 if {[exists_and_not_null return_url]} {
     ad_returnredirect "$return_url"
-           ad_script_abort
+    ad_script_abort
 } else {
     set context_bar [ad_context_bar "[_ survey.lt_Response_Submitted_fo]"]
     ad_return_template