Index: openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl,v
diff -u -N -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl 27 Jan 2023 15:15:47 -0000 1.10.2.3
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl 27 Jan 2023 15:40:30 -0000 1.10.2.4
@@ -20,18 +20,22 @@
calendar::item::get -cal_item_id $cal_item_id -array cal_item
set dow_string ""
-foreach dow {
- {"#calendar.Sunday#" 0} {"#calendar.Monday#" 1} {"#calendar.Tuesday#" 2}
- {"#calendar.Wednesday#" 3} {"#calendar.Thursday#" 4} {"#calendar.Friday#" 5}
- {"#calendar.Saturday#" 6}
+foreach {name num} {
+ "#calendar.Sunday#" 0
+ "#calendar.Monday#" 1
+ "#calendar.Tuesday#" 2
+ "#calendar.Wednesday#" 3
+ "#calendar.Thursday#" 4
+ "#calendar.Friday#" 5
+ "#calendar.Saturday#" 6
} {
- if {[lindex $dow 1] == $cal_item(day_of_week) - 1} {
+ if {$num == $cal_item(day_of_week) - 1} {
set checked_html "CHECKED"
} else {
set checked_html ""
}
- set dow_string "$dow_string [lindex $dow 0] \n"
+ append dow_string [subst { $name }]
}
set recurrence_options [list \