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.1 -r1.1.2.2
--- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	5 Aug 2004 00:03:45 -0000	1.1.2.1
+++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	6 Aug 2004 18:28:18 -0000	1.1.2.2
@@ -38,16 +38,41 @@
 
         set items [ns_set create]
         
+        set last_task_id ""
+        set assignee_list [list]
+
         db_foreach select_monthly_tasks {} {
-            set item "$title (status: status)"
-            set item "[subst $item_template]"
-            
-            append item "<p />"
-            
-            ns_set put $items $latest_start_j $item
+
+            if {[string equal $person_id $user_id]} {
+                set font_begin "<b><font size=-2>"
+                set font_end "</b></font>"
+            } else {
+                set font_begin "<font size=-2>"
+                set font_end "</font>"
+            }
+
+            if {[string equal $last_task_id $task_id]} {
+                append day_details "$font_begin<i>, $full_name</i>$font_end"
+            } else {
+
+                if {![empty_string_p $last_task_id]} {
+                    ns_set put $items $latest_start_j "$day_details<p />"
+                }
+
+                set day_details "<a href=\"task-one?task_id=$task_id\">$task_id</a> $title"
+
+                append day_details "<br />$font_begin<I>$full_name</i>$font_end"
+
+            }
+
+            set last_task_id $task_id
         }            
 
+        if {![empty_string_p $last_task_id ]} {
+            ns_set put $items $latest_start_j "$day_details<p />"
+        }
 
+
         # Display stuff
         if {[empty_string_p $item_add_template]} {
             set day_number_template "<font size=1>$day_template</font>"