Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.8.2.5 -r1.8.2.6
--- openacs-4/packages/file-storage/www/file-add.tcl	2 Aug 2004 23:58:21 -0000	1.8.2.5
+++ openacs-4/packages/file-storage/www/file-add.tcl	5 Aug 2004 01:56:13 -0000	1.8.2.6
@@ -11,7 +11,7 @@
     return_url:optional
     upload_file.tmpfile:tmpfile,optional
     {title ""}
-    {lock_title_p 1}
+    {lock_title_p 0}
 
 } -properties {
     folder_id:onevalue
@@ -55,12 +55,8 @@
 } else {
     set context [fs_context_bar_list -final "[_ file-storage.Add_File]" $folder_id]
 }
-# if title isn't passed in ignore lock_title_p
-if {[empty_string_p $title]} {
-    set lock_title_p 0
-}
 
-ad_form -html { enctype multipart/form-data } -export { folder_id } -form {
+ad_form -html { enctype multipart/form-data } -export { folder_id lock_title_p } -form {
     file_id:key
     {upload_file:file {label \#file-storage.Upload_a_file\#} {html "size 30"}}
 }
@@ -73,7 +69,6 @@
 
 if {$lock_title_p} {
     ad_form -extend -form {
-	{title_display:text(inform) {label \#file-storage.Title\#} }
 	{title:text(hidden) {value $title}}
     }
 } else {
@@ -147,7 +142,9 @@
 		-party_id $user_id \
 		-privilege write
 	}
-	
+	if {$lock_title_p} {
+            set upload_file $this_title
+        }
 	fs::add_file \
 	    -name $upload_file \
 	    -item_id $this_file_id \