Index: openacs-4/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/survey/www/respond.tcl	30 Nov 2002 17:51:03 -0000	1.3
+++ openacs-4/packages/survey/www/respond.tcl	16 Jan 2003 14:04:18 -0000	1.4
@@ -63,7 +63,8 @@
 
 # build a list containing the HTML (generated with survey_question_display) for each question
 set rownum 0
-    
+# for double-click protection
+set new_response_id [db_nextval acs_object_id_seq]    
 set questions [list]
 
 db_foreach survey_sections {} {
@@ -81,6 +82,6 @@
 	set return_url {}
     }
 }
-set form_vars [export_form_vars section_id survey_id]
+set form_vars [export_form_vars section_id survey_id new_response_id]
 ad_return_template