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.9 -r1.10
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	5 Nov 2002 17:19:59 -0000	1.9
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	18 Nov 2002 18:01:05 -0000	1.10
@@ -31,37 +31,11 @@
 
 set folder_name [fs::get_object_name -object_id  $folder_id]
 
-db_multirow -extend { write_p delete_p admin_p read_p} contents select_folder_contents {} {
-    set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]
-    if { $type == "url" } {
-	#url is the only type that uses this in the UI and permission checking is expensive.
-	set admin_p [permission::permission_p -party_id $viewing_user_id -object_id $object_id -privilege "admin"]
-	if { $admin_p } {
-	    set write_p 1
-	    set delete_p 1
-	    set read_p 1
-	} else {
-	    set write_p [permission::permission_p -party_id $viewing_user_id -object_id $object_id -privilege "write"]
-	    set delete_p [permission::permission_p -party_id $viewing_user_id -object_id $object_id -privilege "delete"]
-	    if {!$write_p && !$delete_p} {
-		set read_p [permission::permission_p -party_id $viewing_user_id -object_id $object_id -privilege "read"]
-	    } else {
-		set read_p 1
-	    }
-	}
-    } else {
-	set admin_p 0
-	set write_p 0
-	set delete_p 0
-	set read_p 0
-    }
-}
-
 set rows [fs::get_folder_contents \
     -folder_id $folder_id \
     -user_id $viewing_user_id \
     -n_past_days $n_past_days \
 ]
-template::util::list_of_ns_sets_to_multirow -rows $rows -var_name "contents"
+util::list_of_ns_sets_to_multirow -rows $rows -var_name "contents"
 
 ad_return_template