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.27 -r1.28
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	8 Nov 2002 21:00:37 -0000	1.27
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	18 Nov 2002 18:01:04 -0000	1.28
@@ -379,7 +379,18 @@
             set user_id [acs_magic_object the_public]
         }
 
-        return [db_list_of_ns_sets select_folder_contents {}]
+        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 [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"]
+
+            # set content_size_pretty [lc_numeric $content_size]
+            ns_set put $set content_size_pretty [lc_numeric [ns_set get $set content_size]]
+        }
+
+        return $list_of_ns_sets
     }
 
     ad_proc -public get_folder_contents_count {