Index: openacs-4/packages/calendar/www/cal-item-create-recurrence-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-create-recurrence-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item-create-recurrence-2.tcl	14 Mar 2002 04:58:29 -0000	1.2
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence-2.tcl	15 Mar 2002 06:37:26 -0000	1.3
@@ -13,7 +13,7 @@
     every_n
     interval_type
     recur_until:array
-    {days_of_week ""}
+    days_of_week:multiple
     {return_url "./"}
 } 
 
Index: openacs-4/packages/calendar/www/cal-item-create-recurrence.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-create-recurrence.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item-create-recurrence.adp	14 Mar 2002 04:58:29 -0000	1.2
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence.adp	15 Mar 2002 06:37:26 -0000	1.3
@@ -25,11 +25,22 @@
 
 Repeat every <INPUT TYPE=text name=every_n value=1 size=3>:<br>
 <INPUT TYPE=radio name=interval_type value=day> day (s)<br>
-<INPUT TYPE=radio name=interval_type value=week> @day_of_week@ (s)
+<INPUT TYPE=radio name=interval_type value=week> 
+<%
+foreach dow {{Sunday 0} {Monday 1} {Tuesday 2} {Wednesday 3} {Thursday 4} {Friday 5} {Saturday 6}} {
+        if {[lindex $dow 1] == [expr "$day_of_week -1"]} {
+                set checked_html "CHECKED"
+        } else {
+                set checked_html ""
+        }
+
+        template::adp_puts "<INPUT TYPE=checkbox name=days_of_week value=[lindex $dow 1] $checked_html>[lindex $dow 0] &nbsp;"
+}
+%>
 of the week <br>
 <INPUT TYPE=radio name=interval_type value=month_by_date> day
 @day_of_month@ of the month <br>
-<INPUT TYPE=radio name=interval_type value=month_by_day> same @day_of_week@ of
+<INPUT TYPE=radio name=interval_type value=month_by_day> same @pretty_day_of_week@ of
 the month <br>
 <INPUT TYPE=radio name=interval_type value=year> year<br>
 Repeat this event until: <%= [dt_widget_datetime -default [dt_systime] recur_until] %>
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 -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl	14 Mar 2002 04:58:29 -0000	1.2
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl	15 Mar 2002 06:37:26 -0000	1.3
@@ -24,7 +24,8 @@
     nvl(a. name, e.name) as name,
     nvl(e.description, a.description) as description,
     calendar_name,
-    to_char(start_date, 'Day') as day_of_week,
+    to_char(start_date, 'D') as day_of_week,
+    to_char(start_date, 'Day') as pretty_day_of_week,
     to_char(start_date, 'DD') as day_of_month
     from     acs_activities a, acs_events e, timespans s, time_intervals t, calendars c, cal_items ci
     where    e.timespan_id = s.timespan_id