Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	27 Apr 2004 00:49:28 -0000	1.5
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	3 May 2004 16:22:59 -0000	1.6
@@ -995,12 +995,13 @@
         return
     }
 
-    acs_mail_lite::send \
-        -to_addr  jader@bread.com \
-        -from_addr jader@bread.com \
-        -subject "Reminder: pm::task::email_status is starting..." \
-        -body "It is starting"
+    # also don't send reminders on weekends.
 
+    set today_j [db_string get_today "select to_char(current_timestamp,'J')"]
+    if {![pm::project::is_workday_p $today_j]} {
+        return
+    }
+
     set parties [list]
 
     # what if the person assigned is no longer a part of the subsite?