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.2 -r1.3
--- openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	11 Dec 2003 21:39:44 -0000	1.2
+++ openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	26 Jan 2004 15:39:41 -0000	1.3
@@ -120,6 +120,7 @@
 	# for this, the "options"-parameter has to be built, which is somewhat complicated
 	set explanation ""
 	set options [list]
+	lappend options [db_list_of_lists answer_descriptions ""]
 	set all_choices [list]
 	set old_block 0
 	db_foreach block_choices "" {
@@ -189,22 +190,26 @@
 
     set user_value ""
 
-    db_1row predefined_question_id ""
     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 ""
 	if {$action_type == "db"} {
 	    # select preselected value from the db
 	    set user_id [ad_get_user_id]
-	    set user_value [db_string ignore "select $column_name from $table_name where $key_name=:user_id"]
-	    set choice_id $user_value
-	    set boolean_answer $user_value
-	    set clob_answer $user_value
-	    set number_answer $user_value
-	    set varchar_answer $user_value
-	    set date_answer $user_value
-            set attachment_answer $user_value
+	    # We have to check for date
+	    if {$abstract_data_type == "date"} {
+		set user_value [db_string ignore "select to_char($column_name,'YYYY MM DD') from $table_name where $key_name=:user_id" -default ""]
+		set date_answer $user_value
+	    } else {
+		set user_value [db_string ignore "select $column_name from $table_name where $key_name=:user_id" -default ""]
+		set choice_id $user_value
+		set boolean_answer $user_value
+		set clob_answer $user_value
+		set number_answer $user_value
+		set varchar_answer $user_value
+		set attachment_answer $user_value
+	    }
 	} else {
 	    # select preselected value from latest response
 	    set user_id [ad_get_user_id]
@@ -399,7 +404,7 @@
                 -datatype text \
                 -widget checkbox \
                 -label "$question_text" \
-                -value $user_value \
+                -values $user_value \
                 -options $options \
 		-required_p $required_p
  	}