Index: openacs.org-dev/www/templates/site-node.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/site-node.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/templates/site-node.adp	1 Nov 2002 00:57:22 -0000	1.1
@@ -0,0 +1,10 @@
+<master>
+<property name="title">OpenACS Projects</property>
+<property name="context">@context@</property>
+<if @site_nodes:rowcount@ gt 0>
+<ul>
+<multiple name="site_nodes">
+<li><a href="@site_nodes.url@">@site_nodes.name@</a></li>
+</multiple>
+</ul>
+</if>
\ No newline at end of file
Index: openacs.org-dev/www/templates/site-node.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/site-node.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/templates/site-node.tcl	1 Nov 2002 00:57:22 -0000	1.1
@@ -0,0 +1,16 @@
+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