Index: openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	4 Mar 2004 14:52:40 -0000	1.16
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	31 Jan 2005 07:30:44 -0000	1.16.2.1
@@ -384,7 +384,8 @@
   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,
+  security_inherit_p in acs_objects.security_inherit_p%TYPE default 't'
  ) return acs_objects.object_id%TYPE;
 
  procedure del (
@@ -493,11 +494,13 @@
   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,
+  security_inherit_p in acs_objects.security_inherit_p%TYPE default 't'
  )
  return acs_objects.object_id%TYPE
  is
   v_object_id acs_objects.object_id%TYPE;
+  v_creation_date acs_objects.creation_date%TYPE;
  begin
   if object_id is null then
    select acs_object_id_seq.nextval
@@ -507,12 +510,18 @@
     v_object_id := object_id;
   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, context_id,
-    creation_date, creation_user, creation_ip)
+   (object_id, object_type, context_id, creation_date,
+    creation_user, creation_ip, security_inherit_p)
   values
-   (v_object_id, object_type, 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);
 
   acs_object.initialize_attributes(v_object_id);
 
