Index: openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql,v diff -u -N -r1.13 -r1.14 --- openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql 22 Apr 2018 08:32:32 -0000 1.13 +++ openacs-4/packages/acs-events/sql/oracle/acs-events-create.sql 26 Apr 2018 17:31:00 -0000 1.14 @@ -365,22 +365,31 @@ -- @param creation_user acs_object param -- @param creation_ip acs_object param -- @param context_id acs_object param + -- @param location location + -- @param related_link_url URL + -- @param related_link_text anchor for URL + -- @param redirect_to_rel_link_p activation flag + -- -- @return The id of the new event. -- - event_id in acs_events.event_id%TYPE default null, - name in acs_events.name%TYPE default null, - description in acs_events.description%TYPE default null, - html_p in acs_events.html_p%TYPE default null, - status_summary in acs_events.status_summary%TYPE default null, - timespan_id in acs_events.timespan_id%TYPE default null, - activity_id in acs_events.activity_id%TYPE default null, - recurrence_id in acs_events.recurrence_id%TYPE default null, - object_type in acs_object_types.object_type%TYPE default 'acs_event', - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE default null, - context_id in acs_objects.context_id%TYPE default null, - package_id in acs_objects.package_id%TYPE default null + event_id in acs_events.event_id%TYPE default null, + name in acs_events.name%TYPE default null, + description in acs_events.description%TYPE default null, + html_p in acs_events.html_p%TYPE default null, + status_summary in acs_events.status_summary%TYPE default null, + timespan_id in acs_events.timespan_id%TYPE default null, + activity_id in acs_events.activity_id%TYPE default null, + recurrence_id in acs_events.recurrence_id%TYPE default null, + object_type in acs_object_types.object_type%TYPE default 'acs_event', + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE default null, + creation_ip in acs_objects.creation_ip%TYPE default null, + context_id in acs_objects.context_id%TYPE default null, + package_id in acs_objects.package_id%TYPE default null, + location in acs_events.location%TYPE default null, + related_link_url in acs_events.related_link_url%TYPE default null, + related_link_text in acs_events.related_link_text%TYPE default null, + redirect_to_rel_link_p in acs_events.locationredirect_to_rel_link_p%TYPE default null ) return acs_events.event_id%TYPE; procedure del ( @@ -583,21 +592,24 @@ create or replace package body acs_event as function new ( - event_id in acs_events.event_id%TYPE default null, - name in acs_events.name%TYPE default null, - description in acs_events.description%TYPE default null, - html_p in acs_events.html_p%TYPE default null, - status_summary in acs_events.status_summary%TYPE default null, - timespan_id in acs_events.timespan_id%TYPE default null, - activity_id in acs_events.activity_id%TYPE default null, - recurrence_id in acs_events.recurrence_id%TYPE default null, - object_type in acs_object_types.object_type%TYPE default 'acs_event', - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE default null, - creation_ip in acs_objects.creation_ip%TYPE default null, - context_id in acs_objects.context_id%TYPE default null, - package_id in acs_objects.package_id%TYPE default null, - location in acs_events.location%TYPE default null + event_id in acs_events.event_id%TYPE default null, + name in acs_events.name%TYPE default null, + description in acs_events.description%TYPE default null, + html_p in acs_events.html_p%TYPE default null, + status_summary in acs_events.status_summary%TYPE default null, + timespan_id in acs_events.timespan_id%TYPE default null, + activity_id in acs_events.activity_id%TYPE default null, + recurrence_id in acs_events.recurrence_id%TYPE default null, + object_type in acs_object_types.object_type%TYPE default 'acs_event', + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE default null, + creation_ip in acs_objects.creation_ip%TYPE default null, + context_id in acs_objects.context_id%TYPE default null, + package_id in acs_objects.package_id%TYPE default null, + location in acs_events.location%TYPE default null + related_link_url in acs_events.related_link_url%TYPE default null, + related_link_text in acs_events.related_link_text%TYPE default null, + redirect_to_rel_link_p in acs_events.redirect_to_rel_link_p%TYPE default NULL ) return acs_events.event_id%TYPE is new_event_id acs_events.event_id%TYPE; @@ -614,9 +626,11 @@ ); insert into acs_events - (event_id, name, description, html_p, status_summary, activity_id, timespan_id, recurrence_id, location) + (event_id, name, description, html_p, status_summary, activity_id, timespan_id, recurrence_id, location, + related_link_url, related_link_text, redirect_to_rel_link_p) values - (new_event_id, name, description, html_p, status_summary, activity_id, timespan_id, recurrence_id, location); + (new_event_id, name, description, html_p, status_summary, activity_id, timespan_id, recurrence_id, location, + related_link_url, related_link_text, redirect_to_rel_link_p); return new_event_id; end new; @@ -871,18 +885,21 @@ new_timespan_id := timespan.copy(event.timespan_id, date_offset); new_event_id := new( - name => event.name, - description => event.description, - html_p => event.html_p, - status_summary => event.status_summary, - timespan_id => new_timespan_id, - activity_id => event.activity_id, - recurrence_id => event.recurrence_id, - creation_user => object.creation_user, - creation_ip => object.creation_ip, - context_id => object.context_id, - package_id => object.package_id, - location => event.location + name => event.name, + description => event.description, + html_p => event.html_p, + status_summary => event.status_summary, + timespan_id => new_timespan_id, + activity_id => event.activity_id, + recurrence_id => event.recurrence_id, + creation_user => object.creation_user, + creation_ip => object.creation_ip, + context_id => object.context_id, + package_id => object.package_id, + location => event.location, + related_link_url => event.related_link_url, + related_link_text => event.related_link_text, + redirect_to_rel_link_p => event.redirect_to_rel_link_p ); return new_event_id;