Index: openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql	11 Jun 2008 00:10:04 -0000	1.31
+++ openacs-4/packages/acs-content-repository/sql/oracle/content-item.sql	7 Aug 2017 23:47:46 -0000	1.32
@@ -80,7 +80,8 @@
   is_live       in char default 'f',
   storage_type  in cr_items.storage_type%TYPE default 'lob',
   security_inherit_p in acs_objects.security_inherit_p%TYPE default 't',
-  package_id    in acs_objects.package_id%TYPE default null
+  package_id    in acs_objects.package_id%TYPE default null,
+  with_child_rels in boolean default 't'
 ) return cr_items.item_id%TYPE
 is
   v_parent_id      cr_items.parent_id%TYPE;
@@ -197,7 +198,8 @@
 
   -- if the parent is not a folder, insert into cr_child_rels
   -- We checked above before creating the object that it is a valid rel
-  if v_parent_id ^= -4 and
+  if content_item.new.with_child_rels = 't' and
+    v_parent_id ^= -4 and
     content_folder.is_folder(v_parent_id) = 'f' then
 
     v_rel_id := acs_object.new(
@@ -1076,7 +1078,8 @@
 
 procedure set_live_revision (
   revision_id    in cr_revisions.revision_id%TYPE,
-  publish_status in cr_items.publish_status%TYPE default 'ready'
+  publish_status in cr_items.publish_status%TYPE default 'ready',
+  publish_date   in cr_revisions.publish_date%TYPE default sysdate
 ) is
 begin
 
@@ -1096,7 +1099,7 @@
   update
     cr_revisions
   set
-    publish_date = sysdate
+    publish_date = set_live_revision.publish_date
   where
     revision_id = set_live_revision.revision_id;