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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence-2.tcl	12 Mar 2002 06:08:59 -0000	1.1
@@ -0,0 +1,25 @@
+
+# /packages/calendar/www/cal-item-create.tcl
+
+ad_page_contract {
+    
+    Creation of new recurrence for cal item
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 10 Mar 2002
+    @cvs-id $Id: cal-item-create-recurrence-2.tcl,v 1.1 2002/03/12 06:08:59 ben Exp $
+} {
+    cal_item_id
+    every_n
+    interval_type
+    {days_of_week ""}
+    recur_until:array
+} 
+
+# Verify permission
+ad_require_permission $cal_item_id cal_item_write
+
+# Set up the recurrence
+calendar_item_add_recurrence -cal_item_id $cal_item_id -interval_type $interval_type -every_n $every_n -days_of_week $days_of_week -recur_until [calendar_make_datetime [array get recur_until]]
+
+ad_returnredirect "./"
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence.adp	12 Mar 2002 06:08:59 -0000	1.1
@@ -0,0 +1,37 @@
+<!--	
+	Displays the basic UI for the calendar
+	
+	@author Gary Jin (gjin@arsidigta.com)
+     	@creation-date Dec 14, 2000
+     	@cvs-id $Id: cal-item-create-recurrence.adp,v 1.1 2002/03/12 06:08:59 ben Exp $
+-->
+
+
+<master src="master">
+<property name="title">Calendars: Recurrence</property>
+<property name="context_bar"></property>
+
+You are choosing to make this event recurrent, so that it appears more
+than once in your calendar. The event's details are:
+<p>
+<b>Date:</b> @start_date@<br>
+<b>Time:</b> @start_time@ - @end_time@<br>
+<b>Details:</b> @description@
+<p>
+
+<FORM method=post action=cal-item-create-recurrence-2>
+<INPUT TYPE=hidden name=cal_item_id value=@cal_item_id@>
+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)
+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
+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] %>
+<p>
+<INPUT TYPE=submit value="Add Recurrence">
+
+</FORM>
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/cal-item-create-recurrence.tcl	12 Mar 2002 06:08:59 -0000	1.1
@@ -0,0 +1,37 @@
+
+# /packages/calendar/www/cal-item-create.tcl
+
+ad_page_contract {
+    
+    Creation of new recurrence for cal item
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 10 Mar 2002
+    @cvs-id $Id: cal-item-create-recurrence.tcl,v 1.1 2002/03/12 06:08:59 ben Exp $
+} {
+    cal_item_id
+} 
+
+# Verify permission
+ad_require_permission $cal_item_id cal_item_write
+
+# Select basic information about the event
+db_1row get_item_data { 
+    select   to_char(start_date,'HH24:MI')as start_time,
+    to_char(start_date, 'MM/DD/YYYY') as start_date,
+    to_char(end_date, 'HH24:MI') as end_time,
+    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, '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
+    and      s.interval_id = t.interval_id
+    and      e.activity_id = a.activity_id
+    and      e.event_id = :cal_item_id
+    and      ci.cal_item_id= :cal_item_id
+    and      ci.on_which_calendar= c.calendar_id
+}
+
+# Select information about which day of the week it is, etc...