- Upgrade to V4.0

acs-events.info

 <?xml version="1.0"?>
 <!-- Generated by the OpenACS Package Manager -->
 
-<package key="acs-events" url="http://openacs.org/repository/apm/packages/acs-events" type="apm_service">
-    <license>GPL V2.0 or any later version</license>
-    <package-name>Events</package-name>
-    <pretty-plural>Events</pretty-plural>
+<package key="acs-events" url="http://www.jsabino.com/acs-repository/apm/packages/acs-events" type="apm_service">
+    <package-name>ACS Events</package-name>
+    <pretty-plural>ACS Events</pretty-plural>
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="0.4d2" url="http://openacs.org/repository/download/apm/acs-events-0.4d2.apm">
+    <version name="0.6d3" url="http://openacs.org/repository/download/apm/acs-events-0.6d3.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>API support for relationships between intervals in time, activities, and parties.</summary>
-        <release-date>2003-11-10</release-date>
+        <release-date>2006-02-18</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/html">The events service is primarily intended for use by writers of application packages and other service packages. The service allows developers to specify and manipulate relationships (possibly recurring) between an object and another object.</description>
+        <maturity>0</maturity>
 
-        <provides url="acs-events" version="0.4d"/>
+        <provides url="acs-events" version="0.6d3"/>
+        <requires url="acs-kernel" version="5.5.0"/>
 
         <callbacks>
         </callbacks>

sql/oracle/acs-events-create.sql

@@ -365,7 +365,8 @@ as
         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 
+        context_id      in acs_objects.context_id%TYPE default null,
+        package_id      in acs_objects.package_id%TYPE default null 
     ) return acs_events.event_id%TYPE; 
 
     procedure del ( 
@@ -444,7 +445,8 @@ as
     procedure recurrence_timespan_edit (
         event_id               in acs_events.event_id%TYPE,
         start_date             in time_intervals.start_date%TYPE,
-        end_date               in time_intervals.end_date%TYPE
+        end_date               in time_intervals.end_date%TYPE,
+        edit_past_events       in char default 't'
     );
 
     procedure activity_set (
@@ -579,7 +581,8 @@ as
         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 
+        context_id      in acs_objects.context_id%TYPE default null,
+        package_id      in acs_objects.package_id%TYPE default null 
     ) return acs_events.event_id%TYPE
     is
         new_event_id acs_events.event_id%TYPE;
@@ -587,12 +590,14 @@ as
         new_event_id := acs_object.new(
             object_id => event_id,
             object_type => object_type,
+            title => name,
             creation_date => creation_date,
             creation_user => creation_user,
             creation_ip => creation_ip,
-            context_id => context_id
+            context_id => context_id,
+            package_id => package_id
         );
-                
+
         insert into acs_events
             (event_id, name, description, html_p, status_summary, activity_id, timespan_id, recurrence_id)
         values
@@ -725,7 +730,8 @@ as
     procedure recurrence_timespan_edit (
         event_id               in acs_events.event_id%TYPE,
         start_date             in time_intervals.start_date%TYPE,
-        end_date               in time_intervals.end_date%TYPE
+        end_date               in time_intervals.end_date%TYPE,
+        edit_past_events       in char default 't'
     )
     is
         v_timespan           timespans%ROWTYPE;
@@ -740,7 +746,8 @@ as
         event_id= recurrence_timespan_edit.event_id;
 
         for v_timespan in 
-        (select * from time_intervals where interval_id in (select interval_id from timespans where timespan_id in (select timespan_id from acs_events where recurrence_id = (select recurrence_id from acs_events where event_id = recurrence_timespan_edit.event_id))))
+        (select * from time_intervals where interval_id in (select interval_id from timespans where timespan_id in (select timespan_id from acs_events where recurrence_id = (select recurrence_id from acs_events where event_id = recurrence_timespan_edit.event_id)))
+        and (edit_past_events = 't' or start_date >= to_date(v_one_start_date,'YYYY-MM-DD HH24:MI:SS') ))
         LOOP
                 time_interval.edit(v_timespan.interval_id, v_timespan.start_date + (start_date - v_one_start_date), v_timespan.end_date + (end_date - v_one_end_date));
         END LOOP;
@@ -858,7 +865,8 @@ as
             recurrence_id => event.recurrence_id,
             creation_user => object.creation_user,
             creation_ip   => object.creation_ip,
-            context_id    => object.context_id
+            context_id    => object.context_id,
+            package_id    => object.package_id
         );
 
         return new_event_id;

sql/oracle/activity-create.sql

@@ -200,6 +200,7 @@ as
         new_activity_id := acs_object.new(
             object_id     => activity_id,
             object_type   => object_type,
+            title         => name,
             creation_date => creation_date,
             creation_user => creation_user,
             creation_ip   => creation_ip,
@@ -265,6 +266,10 @@ as
                html_p      = nvl(edit.html_p, html_p),
                status_summary = nvl(edit.status_summary, status_summary)
         where activity_id  = edit.activity_id;
+
+        update acs_objects
+        set    title = nvl(edit.name, title)
+        where object_id = edit.activity_id;
     end edit;
 
     procedure object_map (

sql/postgresql/activity-create.sql

@@ -198,7 +198,10 @@ begin
             new__creation_date,    -- creation_date  
             new__creation_user,    -- creation_user
             new__creation_ip,	   -- creation_ip
-            new__context_id	   -- context_id
+            new__context_id,	   -- context_id
+            ''t'',		   -- security_inherit_p
+            new__name,		   -- title
+            null		   -- package_id
 	    );
 
        insert into acs_activities
@@ -300,6 +303,10 @@ begin
               status_summary = coalesce(edit__status_summary, status_summary)
        where activity_id  = edit__activity_id;
 
+       update acs_objects
+       set    title = coalesce(edit__name, name)
+       where activity_id  = edit__activity_id;
+
        return 0;
 
 end;' language 'plpgsql';

sql/postgresql/oracle-compat-create.sql

@@ -90,8 +90,10 @@ begin
 end;' language 'plpgsql';
 
 
-create or replace function next_day (
+create function next_day (
+       --
        -- Equivalent of Oracle next_day function
+       --
        -- @author jowell@jsabino.com
        --
        -- @param somedate	Reference date
@@ -101,7 +103,8 @@ create or replace function next_day (
        --
        timestamptz,   -- somedate
        varchar	      -- weekday 	      
-) returns timestamptz as '
+)
+returns timestamptz as '
 declare
        next_day__somedate	alias for $1;
        next_day__weekday	alias for $2;
@@ -126,8 +129,8 @@ begin
 
 	-- Do date math
 	return next_day__somedate + to_interval(v_add_days,''days'');
-end;' language 'plpgsql';
 
+end;' language 'plpgsql';
 
 create function add_months (
        --