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 -r1.11 -r1.12
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	30 Oct 2003 08:59:31 -0000	1.11
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	31 Oct 2003 08:05:44 -0000	1.12
@@ -86,7 +86,8 @@
     @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_file             A 'file' form builder datatype.
+    @param upload_tmpfile          
+    @param upload_filename
     @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}
@@ -112,7 +113,7 @@
         db_dml new_mime_type "SQL"
     }
 
-    if {[info exists additional_properties]} {
+    if {[exists_and_not_null additional_properties]} {
         set addtnl_properties ", [bcms::parse_properties -properties $additional_properties -return_format insert_columns]"
         set addtnl_values ", [bcms::parse_properties -properties $additional_properties -return_format insert_values]"
     } else {
@@ -131,8 +132,7 @@
         db_dml insert_revision "SQL"
         db_dml update_file_size "SQL"
     }
-    
-    return $revision_id
+
 }
 
 ad_proc -public bcms::revision::list_revisions {