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.4 -r1.1.2.5
--- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	13 Aug 2004 19:38:14 -0000	1.1.2.4
+++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl	30 Aug 2004 18:19:13 -0000	1.1.2.5
@@ -17,6 +17,7 @@
     ad_proc -public one_month_display {
         {-user_id:required}
         {-date ""}
+        {-hide_closed_p "t"}
     } {
         Creates a month widget for tasks
     } {
@@ -36,6 +37,13 @@
         set last_of_month_date  "$year-$month-[dt_num_days_in_month $year $month]"
 
         set items [ns_set create]
+
+        # do not show closed items if the user requests not to
+        if {[string is true $hide_closed_p]} {
+            set hide_closed_clause " and s.status_type = 'o' "
+        } else {
+            set hide_closed_clause ""
+        }
         
         set last_task_id ""
         set assignee_list [list]
@@ -76,14 +84,16 @@
                 # 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}"
 
+                # only add to the list if we want to see closed tasks
                 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</ul></p></span>"
         }