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.11 -r1.12
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	18 Feb 2003 20:56:09 -0000	1.11
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	17 May 2003 10:39:54 -0000	1.12
@@ -8,17 +8,14 @@
 } -properties {
     folder_name:onevalue
     contents:multirow
+    content_size_total:onevalue
 }
 
 if {![exists_and_not_null folder_id]} {
     ad_return_complaint 1 [_ file-storage.lt_bad_folder_id_folder_]
     ad_script_abort
 }
 
-if {![exists_and_not_null viewing_user_id]} {
-    set viewing_user_id [acs_magic_object "the_public"]
-}
-
 permission::require_permission -party_id $viewing_user_id -object_id $folder_id -privilege "read"
 
 if {![exists_and_not_null n_past_days]} {
@@ -37,4 +34,13 @@
 
 set folder_name [fs::get_object_name -object_id  $folder_id]
 
+set content_size_total 0
+
+db_multirow contents select_folder_contents {} {
+    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
+    }
+}
+
 ad_return_template