Index: openacs.org-dev/www/projects/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/projects/Attic/index.tcl,v
diff -u -N
--- openacs.org-dev/www/projects/index.tcl	29 Oct 2002 16:46:48 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-set my_url [ad_conn url]
-set user_id [ad_conn user_id]
-
-db_multirow site_nodes site_nodes {
-    select site_node__url(node_id) as url,
-    acs_object__name(object_id) as name
-    from site_nodes
-    where parent_id = site_node__node_id(:my_url,null)
-    and object_id is not null
-    and acs_permission__permission_p(
-        object_id,
-        coalesce(:user_id, acs__magic_object_id('the_public')),
-        'read') = 't'
-}
-
-set context [list]
\ No newline at end of file