Index: openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql	2 Mar 2004 17:01:47 -0000	1.9
+++ openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql	4 Mar 2004 14:52:35 -0000	1.10
@@ -25,30 +25,20 @@
   creation_date	in acs_objects.creation_date%TYPE default sysdate,
   creation_user	in acs_objects.creation_user%TYPE default null,
   creation_ip	in acs_objects.creation_ip%TYPE default null,
-  filename	in cr_revisions.filename%TYPE default null,
-  package_id	in acs_objects.package_id%TYPE default null
+  filename	in cr_revisions.filename%TYPE default null
 
 ) return cr_revisions.revision_id%TYPE is
 
   v_revision_id integer;
-  v_package_id acs_objects.package_id%TYPE;
   v_content_type acs_object_types.object_type%TYPE;
 
 begin
 
   v_content_type := content_item.get_content_type(item_id);
 
-  if package_id is null then
-    v_package_id := acs_object.package_id(item_id);
-  else
-    v_package_id := package_id;
-  end if;
-
   v_revision_id := acs_object.new(
       object_id     => revision_id,
-      object_type   => v_content_type,
-      title         => title,
-      package_id    => v_package_id,
+      object_type   => v_content_type, 
       creation_date => creation_date, 
       creation_user => creation_user, 
       creation_ip   => creation_ip, 
@@ -78,8 +68,7 @@
   revision_id   in cr_revisions.revision_id%TYPE default null,
   creation_date	in acs_objects.creation_date%TYPE default sysdate,
   creation_user	in acs_objects.creation_user%TYPE default null,
-  creation_ip	in acs_objects.creation_ip%TYPE default null,
-  package_id	in acs_objects.package_id%TYPE default null
+  creation_ip	in acs_objects.creation_ip%TYPE default null
 ) return cr_revisions.revision_id%TYPE is
 
   v_revision_id integer;
@@ -100,8 +89,7 @@
       revision_id   => revision_id,
       creation_date => creation_date,
       creation_user => creation_user,
-      creation_ip   => creation_ip,
-      package_id    => package_id
+      creation_ip   => creation_ip
   );
 
   select 
@@ -205,13 +193,11 @@
   insert into acs_objects ( 
     object_id, object_type, context_id, security_inherit_p, 
     creation_user, creation_date, creation_ip,
-    last_modified, modifying_user, modifying_ip,
-    title, package_id
+    last_modified, modifying_user, modifying_ip
   ) ( select 
     v_copy_id, object_type, v_target_item_id, security_inherit_p, 
     copy.creation_user, sysdate, copy.creation_ip,
-    sysdate, copy.creation_user, copy.creation_ip,
-    title, package_id from
+    sysdate, copy.creation_user, copy.creation_ip from
     acs_objects where object_id = copy.revision_id
   );