Index: openacs-4/packages/survey/www/admin/responses-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/responses-export.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/survey/www/admin/responses-export.tcl	17 May 2003 12:31:13 -0000	1.6
+++ openacs-4/packages/survey/www/admin/responses-export.tcl	13 Aug 2003 11:18:52 -0000	1.7
@@ -82,6 +82,9 @@
 
 db_foreach get_all_survey_question_responses "" {
 
+    set creation_date_ansi [lc_time_system_to_conn $creation_date_ansi]
+    set creation_date_pretty [lc_time_fmt $creation_date_ansi "%x %X"]
+
     if { $response_id != $current_response_id } {
 	if { ![empty_string_p $current_question_id] } {
 	    append current_response ",\"[join $current_question_list ","]\""
@@ -91,7 +94,7 @@
 	    append csv_export "$current_response \r\n"
 	}
 	set current_response_id $response_id
-	set one_response [list $email $first_names $last_name $user_id $creation_date $response_id]
+	set one_response [list $email $first_names $last_name $user_id $creation_date_pretty $response_id]
 	regsub -all {"} $one_response {""} one_response
 	set current_response "\"[join $one_response {","}]\""