Index: openacs-4/packages/file-storage/www/folder-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-list.tcl,v
diff -u -N
--- openacs-4/packages/file-storage/www/folder-list.tcl	19 Jan 2004 14:43:40 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,26 +0,0 @@
-set user_id [ad_conn user_id]
-set package_id [ad_conn package_id]
-
-if [string equal $base_url file-move-2] {
-    set children_clause [db_map children_clause]
-} else {
-    set children_clause ""
-}
-
-# A nasty query.  jmp suggested a nicer, but still kludgy, alternative.
-# Should base the choice on performance tests.
-
-set sql "
- select lpad('  ',12 * level,'  ') as spaces,
-     (select f.label from cr_folders f where f.folder_id = i.item_id) as label,
-     (select f.folder_id from cr_folders f where f.folder_id = i.item_id) as new_parent
- from   cr_items i
- where  acs_permission.permission_p(i.item_id,:user_id,'write') = 't'
- and    exists (select 1 from cr_folders f where f.folder_id = i.item_id)
- $children_clause
- connect by prior item_id = parent_id
- start with item_id = file_storage.get_root_folder(:package_id)
-"
-db_multirow -extend link_url folder folder $sql { set link_url [export_vars -base $base_url {file_id {parent_id $new_parent}}] }
-
-