Index: openacs-4/packages/attachments/catalog/attachments.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/catalog/attachments.en_US.ISO-8859-1.xml,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/attachments/catalog/attachments.en_US.ISO-8859-1.xml 7 Nov 2002 15:11:48 -0000 1.1 +++ openacs-4/packages/attachments/catalog/attachments.en_US.ISO-8859-1.xml 10 Nov 2002 16:13:19 -0000 1.2 @@ -1,10 +1,11 @@ - + Action Add File Add folder Link + Add %pretty_name% Attach Attach URL Attach a @@ -13,6 +14,7 @@ File Last Modified Name + No such type Object Size Title: @@ -31,11 +33,6 @@ Found file-storage folder XXX folder_name XXX ... would you like to link to it? No file-storage folders found to link to. Would you like to create one? No such attachment for this object - No such type#?" -} - -set context {{Attach URL}} -set fs_context_bar [fs_context_bar_list -final "<#_ Add %pretty_name% The specified parent folder is not valid. To attach a file already in a folder, open the folder by clicking the folder's name, then click the &quot;[ Choose ]&quot; link next to the file. To Index: openacs-4/packages/attachments/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/attachments/www/file-add.tcl 7 Nov 2002 15:11:50 -0000 1.4 +++ openacs-4/packages/attachments/www/file-add.tcl 10 Nov 2002 16:13:21 -0000 1.5 @@ -14,7 +14,7 @@ } -validate { valid_folder -requires {folder_id:integer} { if ![fs_folder_p $folder_id] { - ad_complain "<#_ The specified parent folder is not valid.#>" + ad_complain "[_ attachments.lt_The_specified_parent_]" } } } -properties { 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 -N -r1.5 -r1.6 --- openacs-4/packages/attachments/www/simple-add.tcl 7 Nov 2002 15:11:50 -0000 1.5 +++ openacs-4/packages/attachments/www/simple-add.tcl 10 Nov 2002 16:13:21 -0000 1.6 @@ -32,8 +32,12 @@ set pretty_name [fs::simple_get_type_pretty_name -type $type] if {[empty_string_p $pretty_name]} { - return -code error "[_ attachments.lt_No_such_typeset_conte]" $folder_id] + return -code error "[_ attachments.No_such_type]" +} +set context [list [_ attachments.Attach_URL]] +set fs_context_bar [fs_context_bar_list -final "[_ attachments.Add_pretty_name]" $folder_id] + # Should probably generate the item_id and version_id now for # double-click protection