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.2 -r1.1.2.3
--- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	6 Aug 2004 18:28:18 -0000	1.1.2.2
+++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	13 Aug 2004 18:57:34 -0000	1.1.2.3
@@ -16,15 +16,14 @@
 
     ad_proc -public one_month_display {
         {-user_id:required}
-        {-day_template "<a href=?julian_date=\$julian_date>\$day_number</a>"}
-        {-item_template "<a href=?action=edit&cal_item_id=\$item_id>\$item</a>"}
-        {-item_add_template ""}
         {-date ""}
-        {-prev_nav_template ""}
-        {-next_nav_template ""}
     } {
         Creates a month widget for tasks
     } {
+        set day_template "<a href=?julian_date=\$julian_date>\$day_number</a>"
+        set prev_nav_template "<a href=\"?view=month&date=\$ansi_date&user_id=$user_id\">&lt;</a>" 
+        set next_nav_template "<a href=\"?view=month&date=\$ansi_date&user_id=$user_id\">&gt;</a>" 
+
         if {[empty_string_p $date]} {
             set date [dt_systime]
         }
@@ -43,42 +42,55 @@
 
         db_foreach select_monthly_tasks {} {
 
+            # highlight what you're assigned to.
             if {[string equal $person_id $user_id]} {
-                set font_begin "<b><font size=-2>"
-                set font_end "</b></font>"
+                set font_begin "<strong>"
+                set font_end "</strong>"
             } else {
-                set font_begin "<font size=-2>"
-                set font_end "</font>"
+                set font_begin ""
+                set font_end ""
             }
 
+            # if this is another row of the same item, just add the name.
             if {[string equal $last_task_id $task_id]} {
-                append day_details "$font_begin<i>, $full_name</i>$font_end"
+                append day_details "<li>, ${font_begin}${full_name}${font_end}</li>"
             } else {
 
+                # this is the beginning of an item.
+
+                # save the last item for output
                 if {![empty_string_p $last_task_id]} {
-                    ns_set put $items $latest_start_j "$day_details<p />"
+                    ns_set put $items $latest_start_j "${day_details}</ul></p></span>"
                 }
 
-                set day_details "<a href=\"task-one?task_id=$task_id\">$task_id</a> $title"
+                
+                # set up the next item for output
 
-                append day_details "<br />$font_begin<I>$full_name</i>$font_end"
+                if {[string equal $status "c"]} {
+                    set detail_begin "<strike>"
+                    set detail_end "</strike>"
+                } else {
+                    set detail_begin ""
+                    set detail_end ""
+                }
 
+                # begin setting up this calendar item
+                set day_details "<span class=\"calendar-item\"><p>${detail_begin}<input type=\"checkbox\" name=\"task_id\" value=\"$task_id\" /><a href=\"task-one?task_id=$task_id\">$task_id</a><br />$title${detail_end}"
+
+                append day_details "<ul><li>${font_begin}${full_name}${font_end}</li>"
+
             }
 
             set last_task_id $task_id
         }            
 
         if {![empty_string_p $last_task_id ]} {
-            ns_set put $items $latest_start_j "$day_details<p />"
+            ns_set put $items $latest_start_j "$day_details</ul></p></span>"
         }
 
 
         # Display stuff
-        if {[empty_string_p $item_add_template]} {
-            set day_number_template "<font size=1>$day_template</font>"
-        } else {
-            set day_number_template "<font size=1>$day_template &nbsp; &nbsp; $item_add_template</font>"
-        }
+        set day_number_template "<font size=1>$day_template</font>"
 
         return [dt_widget_month -calendar_details $items -date $date \
                 -master_bgcolor black \