Index: openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.2.0d1-5.2.0d2.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.2.0d1-5.2.0d2.sql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.2.0d1-5.2.0d2.sql 23 Feb 2005 10:07:00 -0000 1.2 +++ openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.2.0d1-5.2.0d2.sql 4 Jun 2006 00:45:38 -0000 1.3 @@ -157,6 +157,7 @@ default null, creation_ip in acs_objects.creation_ip%TYPE default null, context_id in acs_objects.context_id%TYPE default null, + security_inherit_p in acs_objects.security_inherit_p%TYPE default 't', title in acs_objects.title%TYPE default null, package_id in acs_objects.package_id%TYPE default null ) return acs_objects.object_id%TYPE; @@ -272,6 +273,7 @@ default null, creation_ip in acs_objects.creation_ip%TYPE default null, context_id in acs_objects.context_id%TYPE default null, + security_inherit_p in acs_objects.security_inherit_p%TYPE default 't', title in acs_objects.title%TYPE default null, package_id in acs_objects.package_id%TYPE default null ) @@ -280,6 +282,7 @@ v_object_id acs_objects.object_id%TYPE; v_title acs_objects.title%TYPE; v_object_type_pretty_name acs_object_types.pretty_name%TYPE; + v_creation_date acs_objects.creation_date%TYPE; begin if object_id is null then select acs_object_id_seq.nextval @@ -300,12 +303,18 @@ v_title := title; end if; + if creation_date is null then + select sysdate into v_creation_date from dual; + else + v_creation_date := creation_date; + end if; + insert into acs_objects - (object_id, object_type, title, package_id, context_id, - creation_date, creation_user, creation_ip) + (object_id, object_type, context_id, creation_date, + creation_user, creation_ip, security_inherit_p, title, package_id) values - (v_object_id, object_type, v_title, package_id, context_id, - creation_date, creation_user, creation_ip); + (v_object_id, object_type, context_id, v_creation_date, + creation_user, creation_ip, security_inherit_p, v_title, package_id); acs_object.initialize_attributes(v_object_id); @@ -2268,7 +2277,7 @@ update acs_objects set title = group_name - were object_id = v_group_id; + where object_id = v_group_id; -- setup the permissible relationship types for this group