Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	2 Mar 2004 17:01:48 -0000	1.11
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	4 Mar 2004 14:52:37 -0000	1.12
@@ -88,7 +88,6 @@
     {-other_type "content_revision"}
     {-title ""}
     {-description ""}
-    {-package_id ""}
     -item_id
     parent_id
     tmp_filename
@@ -108,7 +107,6 @@
     @param other_type The type of content item to create for a non-image file
     @param title The title given the new revision
     @param description The description of the new revision
-    @param package_id Package Id of the package that created the item
     @param item_id If present, make a new revision of this item, otherwise, make a new
            item
     @param parent_id The parent of the content item we create
@@ -149,10 +147,6 @@
         set mime_type "application/octet-stream"
     }
 
-    if {[empty_string_p $package_id]} {
-	set package_id [ad_conn package_id]
-    }
-
     set old_item_p [info exists item_id]
     if { !$old_item_p } {
         set item_id [db_nextval acs_object_id_seq]