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.12 -r1.13
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	4 Mar 2004 14:52:37 -0000	1.12
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	12 Mar 2004 18:48:48 -0000	1.13
@@ -88,6 +88,7 @@
     {-other_type "content_revision"}
     {-title ""}
     {-description ""}
+    {-package_id ""}
     -item_id
     parent_id
     tmp_filename
@@ -107,6 +108,7 @@
     @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
@@ -147,6 +149,10 @@
         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]