Index: openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/calendar-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	8 Sep 2004 17:47:17 -0000	1.1.2.6
+++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	15 Sep 2004 23:05:51 -0000	1.1.2.7
@@ -13,7 +13,37 @@
 
 
 namespace eval pm::calendar {
+    
+    ad_proc -public users_to_view {
+    } {
+        Returns a list of user_ids for users to view
+        
+        @author Jade Rubick (jader@bread.com)
+        @creation-date 2004-09-13
+        
+        @return 
+        
+        @error 
+    } {
+        set user_id [ad_conn user_id]
 
+        set user_list [db_list get_users {
+            SELECT
+            viewed_user
+            FROM
+            pm_users_viewed
+            WHERE
+            viewing_user = :user_id
+        }]
+
+        if {[empty_string_p $user_list]} {
+            return $user_id
+        } else {
+            return $user_list
+        }
+    }
+
+
     ad_proc -public one_month_display {
         {-user_id:required}
         {-date ""}
@@ -44,7 +74,10 @@
         } else {
             set hide_closed_clause ""
         }
-        
+
+        set selected_users [pm::calendar::users_to_view]
+        set selected_users_clause " and ts.task_id in (select task_id from pm_task_assignment where party_id in ([join $selected_users ", "]))"
+
         set last_task_id ""
         set assignee_list [list]