oracle8.1.6 begin acs_permission.grant_permission ( object_id => :cal_item_id, grantee_id => :party_id, privilege => 'cal_item_read' ); end; begin acs_permission.grant_permission ( object_id => :cal_item_id, grantee_id => :party_id, privilege => :permission ); end; begin acs_permission.revoke_permission ( object_id => :cal_item_id, grantee_id => :party_id, privilege => :permission ); end; begin :1 := acs_activity.new ( name => :name, description => :description, creation_user => :creation_user, creation_ip => :creation_ip ); end; begin :1 := timespan.new( start_date => to_date(:start_date,:date_format), end_date => to_date(:end_date,:date_format) ); end; begin :1 := cal_item.new( on_which_calendar => :on_which_calendar, activity_id => :activity_id, timespan_id => :timespan_id, creation_user => :creation_user, creation_ip => :creation_ip ); end; begin acs_permission.grant_permission ( object_id => :cal_item_id, grantee_id => :grantee_id, privilege => :privilege ); end; begin time_interval.edit ( interval_id => :interval_id, start_date => to_date(:start_date,:date_format), end_date => to_date(:end_date,:date_format) ); end; begin cal_item.delete ( cal_item_id => :cal_item_id ); end;