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 -N -r1.19 -r1.20
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	6 Dec 2004 12:04:52 -0000	1.19
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	24 Feb 2005 13:33:00 -0000	1.20
@@ -427,6 +427,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;
@@ -542,6 +543,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
  )
@@ -572,17 +574,17 @@
   end if;
 
   if creation_date is null then
-    v_creation_date := sysdate;
+    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,
-    v_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);