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 -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;
