Index: openacs-4/packages/calendar/sql/oracle/calendar-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/oracle/calendar-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/calendar/sql/oracle/calendar-create.sql 16 Mar 2002 21:06:44 -0000 1.3 +++ openacs-4/packages/calendar/sql/oracle/calendar-create.sql 30 Sep 2003 12:10:04 -0000 1.4 @@ -267,7 +267,7 @@ ) return calendars.calendar_id%TYPE; - procedure delete ( + procedure del ( calendar_id in calendars.calendar_id%TYPE ); @@ -403,32 +403,32 @@ -- body for procedure delete - procedure delete ( + procedure del ( calendar_id in calendars.calendar_id%TYPE ) is begin -- First erase all the item relate to this calendar. delete from calendars - where calendar_id = calendar.delete.calendar_id; + where calendar_id = calendar.del.calendar_id; -- Delete all privileges associate with this calendar delete from acs_permissions - where object_id = calendar.delete.calendar_id; + where object_id = calendar.del.calendar_id; -- Delete all privilges of the cal_items that's associated -- with this calendar delete from acs_permissions where object_id in ( select cal_item_id from cal_items - where on_which_calendar = calendar.delete.calendar_id + where on_which_calendar = calendar.del.calendar_id ); - acs_object.delete(calendar_id); - end delete; + acs_object.del(calendar_id); + end del;