Index: openacs-4/packages/edit-this-page/sql/oracle/edit-this-page-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/sql/oracle/edit-this-page-create.sql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/edit-this-page/sql/oracle/edit-this-page-create.sql	21 Oct 2003 18:28:30 -0000	1.11
+++ openacs-4/packages/edit-this-page/sql/oracle/edit-this-page-create.sql	11 Dec 2003 21:40:03 -0000	1.12
@@ -35,7 +35,8 @@
     function create_new_revision (
       package_id in apm_packages.package_id%TYPE,
       name in varchar,
-      user_id    in users.user_id%TYPE
+      user_id    in users.user_id%TYPE,
+      revision_id in cr_revisions.revision_id%TYPE
     ) return integer;
 
     function get_folder_id (
@@ -190,7 +191,8 @@
     function create_new_revision (
       package_id in apm_packages.package_id%TYPE,
       name in varchar,
-      user_id    in users.user_id%TYPE
+      user_id    in users.user_id%TYPE,
+      revision_id in cr_revisions.revision_id%TYPE
     ) return integer
     is
       v_revision_id cr_revisions.revision_id%TYPE;
@@ -212,9 +214,13 @@
 
      -- cannot use acs_object__new because it creates attributes with their
     -- default values, which is not what we want.
+      if create_new_revision.revision_id is NULL then
 
-      select acs_object_id_seq.nextval
-      into v_new_revision_id from dual;
+	      select acs_object_id_seq.nextval
+	      into v_new_revision_id from dual;
+      else
+	      v_new_revison_id := create_new_revision.revision_id;
+      end if;
 
       insert into acs_objects 
         ( object_id, object_type, creation_date, creation_user)
