Index: openacs-4/packages/dotlrn-forums/www/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/www/user.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-forums/www/user.tcl	11 Nov 2002 10:39:48 -0000	1.2
+++ openacs-4/packages/dotlrn-forums/www/user.tcl	13 Aug 2003 11:21:42 -0000	1.3
@@ -27,7 +27,10 @@
 }
 
 # Select the postings
-db_multirow messages $query {}
+db_multirow -extend { posting_date_pretty } messages $query {} {
+    set posting_date_ansi [lc_time_system_to_conn $posting_date_ansi]
+    set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+}
 
 # Get user information
 oacs::user::get -user_id $user_id -array user
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 May 2003 10:39:21 -0000	1.31
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	13 Aug 2003 11:14:35 -0000	1.32
@@ -366,9 +366,13 @@
         }
 
         set list_of_ns_sets [db_list_of_ns_sets select_folder_contents {}]
-        
+
         foreach set $list_of_ns_sets {
             # in plain Tcl:
+            # set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
+            ns_set put $set last_modified_ansi [lc_time_system_to_conn [ns_set get $set last_modifed_ansi]] 
+
+            # in plain Tcl:
             # set last_modified [lc_time_fmt $last_modified_ansi "%x %X"]
             ns_set put $set last_modified [lc_time_fmt [ns_set get $set last_modified_ansi] "%x %X"]
 
Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/file-storage/www/file.tcl	9 Dec 2002 22:48:54 -0000	1.11
+++ openacs-4/packages/file-storage/www/file.tcl	13 Aug 2003 11:14:35 -0000	1.12
@@ -57,8 +57,9 @@
     set show_versions [db_map show_live_version]
 }
 
-db_multirow -extend { last_modified content_size_pretty } version version_info {} {
-    set last_modified [lc_time_fmt $last_modified_ansi "%x %X"]
+db_multirow -extend { last_modified_pretty content_size_pretty } version version_info {} {
+    set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
+    set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
     set content_size_pretty [lc_numeric $content_size]
 }
 
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	7 Jul 2003 12:37:39 -0000	1.13
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	13 Aug 2003 11:14:35 -0000	1.14
@@ -32,8 +32,15 @@
 
 set root_folder_id [fs::get_root_folder]
 
-db_multirow contents select_folder_contents {} {
+db_multirow -extend { last_modified_pretty content_size_pretty } contents select_folder_contents {} {
+    set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
+
+    set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
+
+    set content_size_pretty [lc_numeric $content_size]
+
     set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]
+
     if { ![empty_string_p $content_size] } {
         incr content_size_total $content_size
     }
Index: openacs-4/packages/rss-support/www/subscrs-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscrs-include.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rss-support/www/subscrs-include.tcl	17 May 2003 11:23:29 -0000	1.2
+++ openacs-4/packages/rss-support/www/subscrs-include.tcl	13 Aug 2003 11:16:28 -0000	1.3
@@ -4,7 +4,10 @@
     set maybe_restrict_to_user ""
 }
 
-db_multirow subscrs get_subscrs {} {
+db_multirow -extend { last_build_pretty } subscrs get_subscrs {} {
+    set last_build_ansi [lc_time_system_to_conn $last_build_ansi]
+    set last_build_pretty [lc_time_fmt $last_build_ansi "%x %X"]
+
     if [string equal $channel_title ""] {
 	set channel_title "Subscription #$subscr_id"
     }
Index: openacs-4/packages/simple-survey/www/one-respondent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/one-respondent.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simple-survey/www/one-respondent.tcl	10 Sep 2002 22:23:23 -0000	1.4
+++ openacs-4/packages/simple-survey/www/one-respondent.tcl	13 Aug 2003 11:17:42 -0000	1.5
@@ -57,14 +57,10 @@
 
 ### incr rownum added to support postgresql
 set rownum 1
-db_foreach response_ids_select {
-    select response_id, creation_date, to_char(creation_date, 'DD MONTH YYYY') as pretty_submission_date
-    from survsimp_responses, acs_objects
-    where survey_id = :survey_id
-    and response_id = object_id
-    and creation_user = :user_id
-    order by creation_date desc
-} {
+db_foreach response_ids_select {} {
+    set submission_date_ansi [lc_time_system_to_conn $submission_date_ansi]
+    set pretty_submission_date [lc_time_fmt $submission_date_ansi "%x %X"]
+
     set array_val responses:$rownum
     set [set array_val](submission_date) $creation_date
     set [set array_val](pretty_submission_date) $pretty_submission_date
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 {","}]\""