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.8.2.2 -r1.8.2.3
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	18 Feb 2003 02:14:42 -0000	1.8.2.2
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	6 Mar 2003 16:34:14 -0000	1.8.2.3
@@ -8,6 +8,7 @@
 } -properties {
     folder_name:onevalue
     contents:multirow
+    content_size_total:onevalue
 }
 
 if {![exists_and_not_null folder_id]} {
@@ -27,8 +28,11 @@
 
 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]
+    incr content_size_total $content_size
 }
 
 ad_return_template