Index: openacs-4/contrib/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	26 Jan 2004 15:39:41 -0000	1.3
+++ openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	12 Mar 2004 06:35:45 -0000	1.4
@@ -189,8 +189,10 @@
     db_1row survey_question_properties ""
 
     set user_value ""
+    
 
     if {$predefined_question_id!=[db_null]} {
+
 	# question is a predefined question. If it has already been answered, get the last response value from the db
 	# if it is a predefined question with action_type="db" get the value from the db instead.
 	db_1row predefined_question_data ""
@@ -241,6 +243,8 @@
 		set attachment_answer ""
 	    }
 	}
+
+
     } else {
 	if {$edit_previous_response_p == "t"} {
 	    set user_id [ad_get_user_id]
@@ -264,6 +268,8 @@
 	}
     }
 
+
+
     if {$edit_previous_response_p == "t"} {
 	switch -- $abstract_data_type {
 	    "choice" {