Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/file-storage/www/index.tcl	4 Dec 2001 04:59:48 -0000	1.6
+++ openacs-4/packages/file-storage/www/index.tcl	21 Feb 2002 20:06:27 -0000	1.7
@@ -47,32 +47,6 @@
 
 set package_id [ad_conn package_id]
 
-db_multirow file file_select "
-select i.item_id as file_id,
-       r.title as name,
-       i.live_revision,
-       r.mime_type as type,
-       to_char(o.last_modified,'YYYY-MM-DD HH24:MI') as last_modified,
-       r.content_length as content_size,
-       1 as ordering_key
-from   cr_items i, cr_revisions r, acs_objects o
-where  i.item_id       = o.object_id
-and    i.live_revision = r.revision_id (+)
-and    i.parent_id     = :folder_id
-and    acs_permission.permission_p(i.item_id, :user_id, 'read') = 't'
-and    i.content_type = 'content_revision'
-UNION
-select i.item_id as file_id,
-       f.label as name,
-       0,
-       'Folder',
-       NULL,
-       0,
-       0
-from   cr_items i, cr_folders f
-where  i.item_id   = f.folder_id
-and    i.parent_id = :folder_id
-and    acs_permission.permission_p(folder_id, :user_id, 'read') = 't'
-order by ordering_key,name"
+db_multirow file file_select {}
 
 ad_return_template