-To attach a file already in a folder, open the folder by clicking the -folder's name, then click the "[ Choose ]" link next to the file. To -upload a new file into a folder, open the folder by clicking the -folder's name, then click the appropriate "Attach a new: File | URL" -link +#attachments.lt_To_attach_a_file_alre#
@fs_context_bar_html@
-Attach a new: File +#attachments.Attach_a# #attachments.new#: #attachments.File# | - URL + #attachments.URL#
- Name
- Action
- Size
- Type
- Last Modified
+ #attachments.Name#
+ #attachments.Action#
+ #attachments.Size#
+ #attachments.Type#
+ #attachments.Last_Modified#
- @contents.content_size@ item
@contents.type@
@contents.last_modified@
@@ -61,7 +57,7 @@
[
-Choose
+#attachments.Choose#
]
@@ -78,10 +74,10 @@
[
-Choose
+#attachments.Choose#
]
- @contents.content_size@ byte
+ #attachments.lt_contentscontent_size__1#
@contents.type@
@contents.last_modified@
@@ -91,5 +87,6 @@
Folder @folder_name@ is empty
#attachments.lt_Folder_folder_name_is#+ Index: openacs-4/packages/attachments/www/attach.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/attachments/www/attach.tcl 17 Sep 2002 21:08:38 -0000 1.5 +++ openacs-4/packages/attachments/www/attach.tcl 7 Nov 2002 15:11:50 -0000 1.6 @@ -20,7 +20,7 @@ # Give the object a nasty name if it doesn't have a pretty name if {[empty_string_p $pretty_object_name]} { - set pretty_object_name "Object #$object_id" + set pretty_object_name "[_ attachments.Object] #$object_id" } # Load up file storage information @@ -31,7 +31,7 @@ # sanity check if {[empty_string_p $folder_id]} { - ad_return_complaint 1 "Error: empty folder_id!" + ad_return_complaint 1 "[_ attachments.lt_Error_empty_folder_id]" ad_script_abort } @@ -50,10 +50,10 @@ set passthrough_vars "object_id=$object_id&return_url=[ns_urlencode $return_url]&pretty_object_name=[ns_urlencode $pretty_object_name]" if {$folder_id == $root_folder_id} { - set fs_context_bar_html "Top" + set fs_context_bar_html "[_ attachments.Top]" } else { set fs_context_bar_html [attachments::context_bar -extra_vars $passthrough_vars -folder_id $folder_id] } -set context "Attach" +set context "[_ attachments.Attach]" Index: openacs-4/packages/attachments/www/file-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/attachments/www/file-add-2.tcl 18 Sep 2002 13:07:14 -0000 1.2 +++ openacs-4/packages/attachments/www/file-add-2.tcl 7 Nov 2002 15:11:50 -0000 1.3 @@ -15,15 +15,17 @@ } -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_]" } } max_size -requires {upload_file} { set n_bytes [file size ${upload_file.tmpfile}] set max_bytes [ad_parameter "MaximumFileSize"] if { $n_bytes > $max_bytes } { - ad_complain "Your file is larger than the maximum file size allowed on this system ([util_commify_number $max_bytes] bytes)" + # Max number of bytes is used in the error message + set max_number_of_bytes [util_commify_number $max_bytes] + ad_complain "[_ attachments.lt_Your_file_is_larger_t]" } } } @@ -139,19 +141,8 @@ # most likely a duplicate name or a double click -# if [db_string duplicate_check " -# select count(*) -# from cr_items -# where name = :filename -# and parent_id = :folder_id"] { -# ad_return_complaint 1 "Either there is already a file with the name \"$tmp_filename\" or you clicked on the button more than once. You can use the Back button to return and choose a new name, or return to the directory listing to see if your file is there." -# } else { -# ad_return_complaint 1 "We got an error that we couldn't readily identify. Please let the system owner know about this. -# -#
$errmsg" -# } - - ad_return_complaint 1 "You probably clicked on the Add button more than once. Check if the file is properly loaded on the folder you wan, or you can use the Back button to return and re-enter the version file." + set folder_url index?folder_id?$folder_id + ad_return_complaint 1 "[_ attachments.lt_You_probably_clicked_]" ad_script_abort } Index: openacs-4/packages/attachments/www/file-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/attachments/www/file-add.adp 17 Sep 2002 21:08:38 -0000 1.4 +++ openacs-4/packages/attachments/www/file-add.adp 7 Nov 2002 15:11:50 -0000 1.5 @@ -1,8 +1,8 @@
+#attachments.You_are_attaching_a# #attachments.new# #attachments.lt_document_to_pretty_ob#
+ 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 -r1.3 -r1.4 --- openacs-4/packages/attachments/www/file-add.tcl 17 Sep 2002 21:08:38 -0000 1.3 +++ openacs-4/packages/attachments/www/file-add.tcl 7 Nov 2002 15:11:50 -0000 1.4 @@ -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 "<#_ The specified parent folder is not valid.#>" } } } -properties { @@ -31,7 +31,7 @@ # set templating datasources set context {{Attach File}} -set fs_context [fs_context_bar_list -final "Add File" $folder_id] +set fs_context [fs_context_bar_list -final "[_ attachments.Add_File]" $folder_id] # Should probably generate the item_id and version_id now for # double-click protection Index: openacs-4/packages/attachments/www/go-to-attachment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/go-to-attachment.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/attachments/www/go-to-attachment.tcl 10 Sep 2002 22:22:22 -0000 1.2 +++ openacs-4/packages/attachments/www/go-to-attachment.tcl 7 Nov 2002 15:11:50 -0000 1.3 @@ -13,7 +13,7 @@ # Get information about attachment if {![db_0or1row select_attachment_data {}]} { - ad_return_complaint "No such attachment for this object" + ad_return_complaint "[_ attachments.lt_No_such_attachment_fo]" return } @@ -32,7 +32,7 @@ } default { - ad_return_complaint "don't know how to deal with this attachment type" + ad_return_complaint "[_ attachments.lt_dont_know_how_to_deal]" return } } Index: openacs-4/packages/attachments/www/simple-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/attachments/www/simple-add-2.tcl 2 Jul 2002 04:18:54 -0000 1.1 +++ openacs-4/packages/attachments/www/simple-add-2.tcl 7 Nov 2002 15:11:50 -0000 1.2 @@ -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_]" } } Index: openacs-4/packages/attachments/www/simple-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/attachments/www/simple-add.adp 17 Sep 2002 21:08:38 -0000 1.4 +++ openacs-4/packages/attachments/www/simple-add.adp 7 Nov 2002 15:11:50 -0000 1.5 @@ -1,8 +1,8 @@
+#attachments.You_are_attaching_a# #attachments.new_url# #attachments.lt_to_pretty_object_name#
+ 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.5 --- 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 7 Nov 2002 15:11:50 -0000 1.5 @@ -16,7 +16,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 { @@ -32,12 +32,8 @@ set pretty_name [fs::simple_get_type_pretty_name -type $type] if {[empty_string_p $pretty_name]} { - return -code error "No such type" -} + return -code error "[_ attachments.lt_No_such_typeset_conte]" $folder_id] -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 @@ -46,4 +42,3 @@ if {[empty_string_p $title]} { set lock_title_p 0 } - Index: openacs-4/packages/attachments/www/admin/new-root-folder-map-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/admin/new-root-folder-map-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/attachments/www/admin/new-root-folder-map-2.tcl 10 Sep 2002 22:22:22 -0000 1.3 +++ openacs-4/packages/attachments/www/admin/new-root-folder-map-2.tcl 7 Nov 2002 15:11:51 -0000 1.4 @@ -30,7 +30,7 @@ set folder_id [fs::new_root_folder \ -package_id $package_id \ -pretty_name "$instance_name's Attachments" \ - -description "Created by the attachments packge" + -description "[_ attachments.lt_Created_by_the_attach]" ] attachments::map_root_folder -package_id $package_id -folder_id $folder_id Index: openacs-4/packages/attachments/www/admin/new-root-folder-map.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/admin/new-root-folder-map.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/attachments/www/admin/new-root-folder-map.adp 1 Jul 2002 20:16:23 -0000 1.1 +++ openacs-4/packages/attachments/www/admin/new-root-folder-map.adp 7 Nov 2002 15:11:51 -0000 1.2 @@ -1,10 +1,10 @@