Index: openacs-4/packages/calendar/sql/postgresql/cal-item-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/postgresql/cal-item-create.sql,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/calendar/sql/postgresql/cal-item-create.sql	18 Jun 2002 19:56:04 -0000	1.9
+++ openacs-4/packages/calendar/sql/postgresql/cal-item-create.sql	22 Jul 2002 21:46:19 -0000	1.10
@@ -194,12 +194,13 @@
 RETURNS integer AS '
 declare
     delete__recurrence_id		alias for $1;
-    v_event_id                          integer;
+    v_event                             RECORD;
 begin
-    for v_event_id in (select event_id from acs_events
-                      where recurrence_id= delete__recurrence_id)
+    for v_event in 
+	select event_id from acs_events
+        where recurrence_id= delete__recurrence_id
     LOOP
-        PERFORM cal_item__delete(v_event_id);
+        PERFORM cal_item__delete(v_event.event_id);
     END LOOP;
 
     PERFORM recurrence__delete(delete__recurrence_id);