Index: openacs-4/packages/file-storage/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-add-2.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/file-storage/www/file-add-2.tcl	17 May 2003 10:39:54 -0000	1.10
+++ openacs-4/packages/file-storage/www/file-add-2.tcl	7 Jul 2003 12:37:39 -0000	1.11
@@ -8,7 +8,7 @@
     folder_id:integer,notnull
     upload_file:notnull,trim
     upload_file.tmpfile:tmpfile
-    title:notnull,trim
+    title:trim
     description
 } -validate {
     valid_folder -requires {folder_id:integer} {
@@ -35,6 +35,11 @@
     set filename $upload_file
 }
 
+# Get the title
+if { [empty_string_p $title] } {
+    set title $filename
+}
+
 # Get the user
 set user_id [ad_conn user_id]