Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	29 Oct 2003 16:12:42 -0000	1.10
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	30 Oct 2003 08:59:31 -0000	1.11
@@ -86,8 +86,7 @@
     @param content_type            content_type of the item, if not passed it will determine the content_type
     @param mime_type               mime type of this revision
     @param description             description of the revision
-    @param upload_tmpfile          
-    @param upload_filename
+    @param upload_file             A 'file' form builder datatype.
     @param creation_user_id        user_id creating this item
     @param creation_user_ip        ip address which this item is created
     @param additional_properites   a list of additional properties / columns to insert   format: {property value ... property value}
@@ -132,7 +131,8 @@
         db_dml insert_revision "SQL"
         db_dml update_file_size "SQL"
     }
-
+    
+    return $revision_id
 }
 
 ad_proc -public bcms::revision::list_revisions {