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.5 -r1.1.2.6
--- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl 30 Aug 2004 18:19:13 -0000 1.1.2.5
+++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl 8 Sep 2004 17:47:17 -0000 1.1.2.6
@@ -33,7 +33,7 @@
set month [lindex $date_list 1]
set year [lindex $date_list 0]
- set first_of_month_date "$year-$month-[dt_first_day_of_month $year $month]"
+ set first_of_month_date "$year-$month-01"
set last_of_month_date "$year-$month-[dt_num_days_in_month $year $month]"
set items [ns_set create]
@@ -99,7 +99,7 @@
# Display stuff
- set day_number_template "$day_template"
+ set day_number_template "$day_template"
return [dt_widget_month -calendar_details $items -date $date \
-master_bgcolor black \