Index: openacs-4/packages/file-storage/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-storage/www/simple-add.tcl	17 May 2003 10:39:54 -0000	1.7
+++ openacs-4/packages/file-storage/www/simple-add.tcl	25 Sep 2003 12:28:14 -0000	1.8
@@ -7,6 +7,7 @@
     @cvs-id $Id$
 } {
     folder_id:integer,notnull
+    {type "fs_url"}
     {title ""}
     {lock_title_p 0}
 } -validate {
@@ -26,7 +27,7 @@
 
 # set templating datasources
 
-set pretty_name [fs::simple_get_type_pretty_name -type $type]
+set pretty_name "URL"
 if {[empty_string_p $pretty_name]} {
     return -code error "[_ file-storage.No_such_type]"
 }