Index: openacs-4/packages/attachments/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/attachments/www/simple-add.tcl	17 Sep 2002 21:08:38 -0000	1.4
+++ openacs-4/packages/attachments/www/simple-add.tcl	20 Mar 2003 22:12:18 -0000	1.4.2.1
@@ -30,18 +30,14 @@
 
 # set templating datasources
 
-set pretty_name [fs::simple_get_type_pretty_name -type $type]
-if {[empty_string_p $pretty_name]} {
-    return -code error "No such type"
-}
+set pretty_name "URL"
 
 set context {{Attach URL}}
 set fs_context_bar [fs_context_bar_list -final "Add $pretty_name" $folder_id]
 
 # Should probably generate the item_id and version_id now for
 # double-click protection
 
-
 # if title isn't passed in ignore lock_title_p
 if {[empty_string_p $title]} {
     set lock_title_p 0