Index: openacs-4/packages/project-manager/www/task-week-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-week-calendar.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/task-week-calendar.tcl	30 Jul 2005 00:26:33 -0000	1.1
+++ openacs-4/packages/project-manager/www/task-week-calendar.tcl	30 Jul 2005 18:32:36 -0000	1.2
@@ -11,7 +11,13 @@
 
 set package_id [ad_conn 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
 
 set edit_hidden_vars [export_vars -form {return_url {new_tasks "0"}}]
@@ -116,7 +122,7 @@
     
     set users_list "<table>"
     foreach user $selected_users {
-	if {[db_string users {select 1 from pm_task_assignment where party_id=:user and task_id=:item_id} -default 0]} {
+	if {[db_string users {} -default 0]} {
 	    db_1row name {select p.first_names || ' ' || p.last_name  as full_name from persons p where person_id=:user}
 	    if { $user == $user_id } {
 		append users_list "<tr><td><span class=selected><small>$full_name</small></span></td></tr>"
@@ -175,16 +181,7 @@
 
 set users_to_view [pm::calendar::users_to_view]
 
-set community_id [dotlrn_community::get_community_id]
-
-set users_list "community_members"
-
-if {[empty_string_p $community_id]} {
-    set users_list  "dotlrn_members"
-}
-
-
-db_multirow -extend {checked_p} users $users_list {} {
+db_multirow -extend {checked_p} users assignees {} {
     if {[lsearch $users_to_view $party_id] == -1} {
         set checked_p f
     } else {