Index: openacs-4/packages/calendar/tcl/cal-item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.xql,v
diff -u -r1.7 -r1.7.6.1
--- openacs-4/packages/calendar/tcl/cal-item-procs.xql	9 Jan 2004 22:55:52 -0000	1.7
+++ openacs-4/packages/calendar/tcl/cal-item-procs.xql	28 Jun 2005 12:41:25 -0000	1.7.6.1
@@ -12,11 +12,14 @@
 <fullquery name="calendar::item::add_recurrence.insert_cal_items">
 <querytext>
 insert into cal_items 
-(cal_item_id, on_which_calendar)
+(cal_item_id, on_which_calendar, item_type_id)
 select
 event_id, 
 (select on_which_calendar 
 as calendar_id from cal_items 
+where cal_item_id = :cal_item_id),
+(select item_type_id 
+as item_type from cal_items 
 where cal_item_id = :cal_item_id)
 from acs_events where recurrence_id= :recurrence_id 
 and event_id <> :cal_item_id