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 -N -r1.8 -r1.8.2.1
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	17 Sep 2002 21:03:27 -0000	1.8
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	17 Feb 2003 20:33:19 -0000	1.8.2.1
@@ -15,10 +15,6 @@
     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]} {
@@ -31,37 +27,15 @@
 
 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 {} {
+db_multirow 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"
+#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"
 
 ad_return_template