Index: openacs-4/packages/dotlrn-fs/www/all-objects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/www/all-objects.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-fs/www/all-objects.tcl	22 Jun 2002 15:52:34 -0000	1.8
+++ openacs-4/packages/dotlrn-fs/www/all-objects.tcl	30 Jul 2002 12:27:47 -0000	1.9
@@ -68,38 +68,12 @@
 
 set dotlrn_package_key [dotlrn::package_key]
 
-set sql "
-    select fs_objects.*,
-           fs_folders.name as folder_name
-    from fs_objects,
-         fs_folders
-    where fs_objects.object_id in (select acs_objects.object_id
-                                   from acs_objects
-                                   connect by acs_objects.context_id = prior acs_objects.object_id
-                                   start with acs_objects.context_id in (select site_node_object_mappings.object_id
-                                                                         from site_node_object_mappings,
-                                                                              site_nodes,
-                                                                              fs_root_folders
-                                                                         where site_node_object_mappings.node_id = site_nodes.node_id
-                                                                         and site_node_object_mappings.object_id = fs_root_folders.folder_id
-                                                                         and site_nodes.parent_id in (select sn.node_id
-                                                                                                      from site_nodes sn,
-                                                                                                           apm_packages ap
-                                                                                                      where sn.object_id = ap.package_id
-                                                                                                      and ap.package_key = :dotlrn_package_key)))
-    and fs_objects.parent_id = fs_folders.folder_id
-    and fs_objects.type <> 'folder'
-    and fs_objects.last_modified >= (sysdate - :n_past_days)
-    and 't' = acs_permission.permission_p(fs_objects.object_id, :user_id, 'read')
-    [ad_order_by_from_sort_spec $orderby $table_def]
-"
-
 set table [ad_table \
     -Tmissing_text {<blockquote><i>No contents found.</i></blockquote>} \
     -Torderby $orderby \
     -Ttable_extra_html {width="95%"} \
     select_folder_contents \
-    $sql \
+    "" \
     $table_def
 ]