Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.6.2.23 -r1.6.2.24
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	14 May 2005 12:01:50 -0000	1.6.2.23
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	1 Jul 2005 06:55:23 -0000	1.6.2.24
@@ -557,6 +557,11 @@
     larger than 2038, so I had to do this myself.
 } {
     set date [dt_julian_to_ansi $julian_date] 
+
+    # pretty sure all of the following can be replaced with...
+    # clock format [clock scan $date] -format %w
+    # please test and commit
+
     regexp {([0-9]*)-([0-9]*)-([0-9]*)} $date match year month day
     regexp {0(.)} $month match month extra
     regexp {0(.)} $day match day extra