daveb
committed
on 03 Jun 05
Add calendaer view include.
openacs.org-dev/www/projects/index.tcl (+16)
  1 set my_url [ad_conn url]
  2 set user_id [ad_conn user_id]
  3
  4 db_multirow site_nodes site_nodes {
  5     select site_node__url(node_id) as url,
  6     acs_object__name(object_id) as name
  7     from site_nodes
  8     where parent_id = site_node__node_id(:my_url,null)
  9     and object_id is not null
  10     and acs_permission__permission_p(
  11         object_id,
  12         coalesce(:user_id, acs__magic_object_id('the_public')),
  13         'read') = 't'
  14 }
  15
  16 set context [list]