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.18 -r1.19
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	26 Jul 2004 12:21:39 -0000	1.18
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	6 Dec 2004 12:04:52 -0000	1.19
@@ -550,6 +550,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
@@ -570,12 +571,18 @@
     v_title := title;
   end if;
 
+  if creation_date is null then
+    v_creation_date := sysdate;
+  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)
   values
    (v_object_id, object_type, v_title, package_id, context_id,
-    creation_date, creation_user, creation_ip);
+    v_creation_date, creation_user, creation_ip);
 
   acs_object.initialize_attributes(v_object_id);