Index: openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl	4 Oct 2003 08:53:05 -0000	1.3
+++ openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl	5 Oct 2003 12:28:03 -0000	1.4
@@ -201,18 +201,13 @@
     if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }
     if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
 
-    # get the file properties
-    set upload_filename [template::util::file::get_property filename $upload_file]
-    set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
-    set upload_mime_type [template::util::file::get_property mime_type $upload_file]
-
     db_transaction {
         set file_id [bcms::item::create_item -item_name $file_name -parent_id $folder_id -content_type $content_type \
                          -storage_type file -creation_user_id $creation_user_id -creation_ip $creation_ip]
 
         set revision_id [bcms::revision::upload_file_revision -item_id $file_id \
-                        -title $title -description $description \
-                        -upload_filename $upload_filename -upload_tmpfile $upload_tmpfile -mime_type $upload_mime_type \
+                             -title $title -description $description \
+                             -upload_file $upload_file \
                              -creation_user_id $creation_user_id -creation_ip $creation_ip]
 
     }