Index: openacs-4/packages/project-manager/lib/task-week-calendar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/task-week-calendar.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/project-manager/lib/task-week-calendar.tcl 30 Jul 2005 00:26:33 -0000 1.1 +++ openacs-4/packages/project-manager/lib/task-week-calendar.tcl 30 Jul 2005 18:32:36 -0000 1.2 @@ -2,11 +2,18 @@ set selected_users [pm::calendar::users_to_view] set instance_clause "" +set users_clause "" set package_id [dotlrn_community::get_package_id_from_package_key -package_key project-manager -community_id [dotlrn_community::get_community_id]] if { ![string eq [ad_conn package_id] [dotlrn::get_package_id]]} { set instance_clause "and o.package_id=:package_id" + set users_clause "and pa.project_id in (select p.item_id + from pm_projectsx p + where + p.item_id = pa.project_id + and p.object_package_id = :package_id)" + } set return_url [ad_return_url]\#top @@ -113,7 +120,7 @@ set users_list "
$full_name |