Index: openacs-4/packages/calendar/tcl/cal-item-2-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/cal-item-2-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/cal-item-2-procs-oracle.xql	10 Jul 2002 14:58:25 -0000	1.3
+++ openacs-4/packages/calendar/tcl/cal-item-2-procs-oracle.xql	22 Jul 2002 21:46:19 -0000	1.4
@@ -10,6 +10,9 @@
             cal_items.cal_item_id,
             0 as n_attachments,
             to_char(start_date,'HH:MIpm')as start_time,
+            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,
             start_date as start_date,
             to_char(start_date, 'MM/DD/YYYY') as pretty_short_start_date,
             to_char(end_date, 'HH:MIpm') as end_time,
@@ -44,6 +47,9 @@
             cal_items.cal_item_id,
             (select count(*) from attachments where object_id = cal_item_id) as n_attachments,
             to_char(start_date,'HH:MIpm')as start_time,
+            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,
             start_date as start_date,
             to_char(start_date, 'MM/DD/YYYY') as pretty_short_start_date,
             to_char(end_date, 'HH:MIpm') as end_time,
@@ -71,4 +77,23 @@
 </querytext>
 </fullquery>
 
+<fullquery name="calendar::item::add_recurrence.create_recurrence">
+<querytext>
+begin
+   :1 := recurrence.new(interval_type => :interval_type,
+    	every_nth_interval => :every_n,
+    	days_of_week => :days_of_week,
+    	recur_until => :recur_until);
+end;
+</querytext>
+</fullquery>
+
+<fullquery name="calendar::item::add_recurrence.insert_instances">
+<querytext>
+begin
+   acs_event.insert_instances(event_id => :cal_item_id);
+end;
+</querytext>
+</fullquery>
+
 </queryset>