Index: openacs-4/packages/file-storage/catalog/file-storage.da_DK.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/catalog/file-storage.da_DK.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/catalog/file-storage.da_DK.ISO-8859-1.xml 5 Nov 2002 17:19:56 -0000 1.1 @@ -0,0 +1,89 @@ + + + + + St�rrelse + slet + Beskrivelse: + Upload + dage som ny. + Version filnavn: + Lav et URL + dag + administrer rettigheder + Tilf�j %pretty_name% + Navn + Handlinger + inkluderet filer fra undermapper ( + ekskluderet + Der er ingen versioner af denne fil tilg�ngelig. + Upload Ny Fil + Version Noter + Handling + Vi fik en database fejl. Den valgte mappe indeholder formentlig en fil med samme navn, + Ja, Slet Den + Omd�b + Brug "Bladre..."-knappen til at finde din fil og klik da "�ben". + Dette tager et stykke tid. T�lmodighed tak. + �ndret + Vi fik en uidentificeret fejl. Snak med den sysop. + ny + Type + URL: + Kopier + Forfatter + mappe + Download et arkiv med indholdet af denne mappe. + Oversigt over filer �ndret siden + �ndre rettighedder fro denne fil + Din fil er st�rre end den maksimale filst�rrelse (%number_of_bytes% bytes). + Gem + Ikke i ... + vis alle versioner + objekter + Du har formentlig klikke p� tilf�j-knappen mere end en gang. Tjek hvis filen er ordentlig p� %folder_link% eller brug tilbage-knappen og genindtast versionsfilen. + Mappe Navn: + Der er allerede en fil med det navn i denne mappe. M�ske har du klikket to gange. + Version filnavn: + Vis kun seneste version + Ingen s�dan type + Tilf�j Fil + file + vis detajler + Lav ny mappe + Er du sikker p� at du vil slette filen "%title%" og alle dens revisioner? Den handling kan ikke fortrydes. + Upload Ny Version + Slet + Er du sikker p� at du vil slette mappen "%folder_name%" og alle de ting den indeholder? Denne handling kan ikke g�res om. + Den folder "%folder?link%" du har valgt indeholder allerede en fil med samme navn. + rediger + Denne fil har en version, du ikke har rettighed til at �ndre. + Lav Ny Mappe + Mappe %folder_name% er tom + Titel: + Vis filer �ndret indenfor de sidste + Den angivne for�ldre mappe er ugyldig. + Upload ny version + Sidst �ndret + Slet denne mappe + Flyt + objekt + St�rrelse (bytes) + Handlinger: + inkluder + Upload en fil + Lav + Den angivne fil er ikke gyldig. + S�g igen: + Version filnavn + Note: + Version Noter: + Denne mappe kan ikke slettes, da den indeholder version du ikke har rettighed til at �ndre. + S�ge Resultater + Rediger Mappe + Omd�b denne mappe + Titel: + Slet denne fil (inkluderet alle versioner) + Skriv venligst det nye navn for denne fil: + Rediger rettigheder p� denne mappe + Index: openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/catalog/file-storage.en_US.ISO-8859-1.xml 5 Nov 2002 17:19:56 -0000 1.1 @@ -0,0 +1,114 @@ + + + + + delete + Size + Description: + Version filename : + days as new. + Upload + day + Create a URL + Edit + administer permissions + Add %pretty_name% + Name + Actions + ncluding items from subfolders + ( + exclude + There are no versions of this file availible to you + The specified version is not valid. + The specified folder is not valid. + Upload New File + Version Notes + Action + Your file is larger than the maximum file size allowed on this system (%max_number_of_bytes% bytes) + We received an error from the database. Probably + the folder you selected already contains a file with the same name. + Yes, Delete It + Rename + Use the "Browse..." button to locate your file, + then click "Open". + Recurse? + This may take a while, please be patient. + Modified + We got an error that we couldn't readily identify. Please let the system owner know about this. + new + Type + URL: + Copy + Author + folder + Download an archive of the contents of this folder + Showing files modified within the past + Modify permissions on this file + Your file is larger than the maximum file size allowed on this system (%number_of_bytes% bytes) + Save + Not i + show all versions + items + You probably clicked on the Add button more than once. Check if the file is properly loaded on the %folder_link% you want, or you can use the Back button to return and re-enter the version file. + Folder Name: + Version filename: + It appears that there is already a file with that name in this folder (although possibly you clicked more than once on the submit button.) + show only live version + missing folder id + No such type + Create a new folder + view details + file + Add File + Edit URL + Are you sure you want to delete the file "%title%" and all of its versions? This action cannot be reversed. + Delete + Upload New Version + Are you sure you want to delete the folder "%folder_name%" and all the items it contains? This action cannot be reversed. + edit + This file has versions that you do not have permission to delete, +so you cannot delete the file. + The %folder_link% you selected already contains a file with the same name. + We're sorry, but at the moment you cannot delete folders unless they are already empty. + Change Name + Delete Version + Create New Folder + Folder %folder_name% is empty. + Title : + Show files modified in the past + Upload a new version + The specified parent folder is not valid. + Last Modified + Delete this folder + Either there is already a folder with the name "%folder_name%" or you clicked on the button more than once. You can use the Back button to return and choose a new name, or <a href="%directory_url%">return to the directory listing</a> to see if your folder is there. + Order By + Move + item + You may not delete the root folder. + no such URL + Size (bytes) + Actions: + include + Upload a file + Create + The specified folder does not exist. + Search again: + The specified file is not valid. + Are you sure that you want to delete this version "%version_name%" of "%title%"? +This action cannot be reversed. + Version filename + Note: + Version Notes: + This folder contains items that you do not have permission to +delete, therefore you cannot delete it. + Search Results + Folder ID + Edit Folder + Rename this folder + Title: + Update + Delete this file (including all versions) + Please enter the new name for this file: + Modify permissions on this folder + Search + Index: openacs-4/packages/file-storage/tcl/file-storage-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-init.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/tcl/file-storage-init.tcl 22 May 2002 16:49:33 -0000 1.4 +++ openacs-4/packages/file-storage/tcl/file-storage-init.tcl 5 Nov 2002 17:19:58 -0000 1.5 @@ -29,3 +29,4 @@ # We should probably just define this function here, and remove from the fs namespace return [fs::new_root_folder -package_id $package_id] } + Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v diff -u -r1.25 -r1.26 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 17 Sep 2002 21:03:26 -0000 1.25 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 5 Nov 2002 17:19:58 -0000 1.26 @@ -597,3 +597,4 @@ } } + Index: openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl 12 Sep 2002 22:44:27 -0000 1.3 +++ openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl 5 Nov 2002 17:19:58 -0000 1.4 @@ -59,3 +59,4 @@ return "${url_stub}download/index?version_id=$revision_id" } + Index: openacs-4/packages/file-storage/tcl/fs-simple-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/Attic/fs-simple-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/tcl/fs-simple-procs.tcl 10 Sep 2002 22:22:55 -0000 1.4 +++ openacs-4/packages/file-storage/tcl/fs-simple-procs.tcl 5 Nov 2002 17:19:58 -0000 1.5 @@ -91,3 +91,4 @@ } } + 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.6 -r1.7 --- openacs-4/packages/file-storage/www/file-add-2.tcl 18 Sep 2002 12:09:59 -0000 1.6 +++ openacs-4/packages/file-storage/www/file-add-2.tcl 5 Nov 2002 17:19:59 -0000 1.7 @@ -13,15 +13,15 @@ } -validate { valid_folder -requires {folder_id:integer} { if ![fs_folder_p $folder_id] { - ad_complain "The specified parent folder is not valid." + ad_complain "[_ file-storage.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)" + ad_complain [_ [ad_conn locale] file-storage.lt_Your_file_is_larger_t_1] "" [list max_number_of_bytes [util_commify_number $max_bytes]]] } } } @@ -95,7 +95,9 @@ #
$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_name "[_ file-storage.folder]" + set folder_link "$folder_name" + ad_return_complaint 1 "[_ [ad_conn locale] file-storage.lt_You_probably_clicked_ "" [list folder_link $folder_link]]" ad_script_abort } Index: openacs-4/packages/file-storage/www/file-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/file-storage/www/file-add.adp 6 Sep 2002 21:50:38 -0000 1.6 +++ openacs-4/packages/file-storage/www/file-add.adp 5 Nov 2002 17:19:59 -0000 1.7 @@ -1,5 +1,5 @@ -Upload New File +#file-storage.Upload_New_File# @context@
@@ -8,14 +8,13 @@ - + - + @@ -24,7 +23,7 @@ - + @@ -35,13 +34,13 @@ - + - Index: openacs-4/packages/file-storage/www/file-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/file-add.tcl 5 Sep 2002 09:29:00 -0000 1.3 +++ openacs-4/packages/file-storage/www/file-add.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -11,7 +11,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 "[_ file-storage.lt_The_specified_parent_]" } } } -properties { @@ -27,7 +27,7 @@ # set templating datasources -set context [fs_context_bar_list -final "Add File" $folder_id] +set context [fs_context_bar_list -final "[_ file-storage.Add_File]" $folder_id] # Should probably generate the item_id and version_id now for # double-click protection @@ -36,4 +36,3 @@ if {[empty_string_p $title]} { set lock_title_p 0 } - Index: openacs-4/packages/file-storage/www/file-copy-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-copy-2.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/file-storage/www/file-copy-2.tcl 18 Sep 2002 12:09:59 -0000 1.7 +++ openacs-4/packages/file-storage/www/file-copy-2.tcl 5 Nov 2002 17:19:59 -0000 1.8 @@ -10,13 +10,13 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } valid_folder -requires {parent_id} { if ![fs_folder_p $parent_id] { - ad_complain "The specified parent folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_parent_]" } } } @@ -47,7 +47,9 @@ } on_error { - ad_return_complaint 1 "The folder you selected already contains a file with the same name. " + set folder_name "[_ file-storage.folder]" + set folder_link "$folder_name" + ad_return_complaint 1 "[_ file-storage.lt_The_folder_link_you_s]" #
$errmsg
Index: openacs-4/packages/file-storage/www/file-copy.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-copy.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/file-copy.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/file-copy.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -1,5 +1,5 @@ -Copy +#file-storage.Copy# @context@

Select the folder that you would like to copy "@file_name@" to @@ -9,5 +9,7 @@

- + + + Index: openacs-4/packages/file-storage/www/file-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-copy.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/file-copy.tcl 5 Sep 2002 09:29:00 -0000 1.3 +++ openacs-4/packages/file-storage/www/file-copy.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -9,7 +9,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -29,6 +29,6 @@ from cr_items where item_id = :file_id"] -set context [fs_context_bar_list -final "Copy" $file_id] +set context [fs_context_bar_list -final "[_ file-storage.Copy]" $file_id] ad_return_template Index: openacs-4/packages/file-storage/www/file-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/file-delete.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/file-delete.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -4,8 +4,7 @@ -

This file has versions that you do not have permission to delete, -so you cannot delete the file. +

#file-storage.lt_This_file_has_version# @@ -14,13 +13,14 @@ -

Are you sure you want to delete the file "@title@" and all of -its versions? This action cannot be reversed. +

#file-storage.lt_delete_file#

- +
+ + Index: openacs-4/packages/file-storage/www/file-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/file-storage/www/file-delete.tcl 17 Sep 2002 21:03:27 -0000 1.5 +++ openacs-4/packages/file-storage/www/file-delete.tcl 5 Nov 2002 17:19:59 -0000 1.6 @@ -10,7 +10,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -56,6 +56,5 @@ from cr_items where item_id = :file_id" - set context [fs_context_bar_list -final "Delete" $file_id] - + set context [fs_context_bar_list -final "[_ file-storage.Delete]" $file_id] } Index: openacs-4/packages/file-storage/www/file-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-edit-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/file-edit-2.tcl 18 Sep 2002 12:09:59 -0000 1.3 +++ openacs-4/packages/file-storage/www/file-edit-2.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -10,7 +10,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } @@ -32,9 +32,9 @@ from cr_items where name = :name and parent_id = content_item.get_parent_folder(:file_id)"] { - ad_return_complaint 1 "It appears that there is already a file with that name in this folder (although possibly you clicked more than once on the submit button.)" + ad_return_complaint 1 "[_ file-storage.lt_It_appears_that_there]" } else { - ad_return_complaint 1 "We got an error that we couldn't readily identify. Please let the system owner know about this. + ad_return_complaint 1 "[_ file-storage.lt_We_got_an_error_that_]
$errmsg
" } Index: openacs-4/packages/file-storage/www/file-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/file-edit.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/file-edit.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -6,10 +6,12 @@
-

Please enter the new name for this file: +

#file-storage.lt_Please_enter_the_new_#

-

+

+ + Index: openacs-4/packages/file-storage/www/file-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-edit.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/file-edit.tcl 5 Sep 2002 09:29:00 -0000 1.3 +++ openacs-4/packages/file-storage/www/file-edit.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -9,7 +9,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -28,6 +28,6 @@ from cr_items where item_id = :file_id" -set context [fs_context_bar_list -final "Rename" $file_id] +set context [fs_context_bar_list -final "[_ file-storage.Rename]" $file_id] ad_return_template Index: openacs-4/packages/file-storage/www/file-move-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move-2.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/file-storage/www/file-move-2.tcl 18 Sep 2002 12:09:59 -0000 1.6 +++ openacs-4/packages/file-storage/www/file-move-2.tcl 5 Nov 2002 17:19:59 -0000 1.7 @@ -10,13 +10,13 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } valid_folder -requires {parent_id} { if ![fs_folder_p $parent_id] { - ad_complain "The specified parent folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_parent_]" } } } @@ -48,28 +48,11 @@ # JS: to like quering a table that has just aborted a transaction on it. Instead, I copied # JS: the error reporting of file-copy-2.tcl does - ad_return_complaint 1 "We received an error from the database. Probably - the folder you selected already contains a file with the same name. + ad_return_complaint 1 "[_ file-storage.lt_We_received_an_error_]

$errmsg
" - #set filename [db_string filename " - #select name from cr_items where item_id = :file_id"] - - #if [db_string duplicate_check " - #select count(*) - #from cr_items - #where name = :filename - #and parent_id = :parent_id"] { - # ad_return_complaint 1 "Either there is already a file in the specified folder with the name \"$filename\" or you clicked on the button more than once. You can 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_script_abort } ad_returnredirect "?folder_id=$parent_id" - Index: openacs-4/packages/file-storage/www/file-move.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/file-move.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/file-move.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -1,5 +1,5 @@ -Move +#file-storage.Move# @context@

Select the folder that you would like to move "@file_name@" under @@ -9,5 +9,7 @@

- + + + Index: openacs-4/packages/file-storage/www/file-move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/file-move.tcl 5 Sep 2002 09:29:00 -0000 1.3 +++ openacs-4/packages/file-storage/www/file-move.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -10,7 +10,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -31,7 +31,7 @@ :1 := file_storage.get_title(:file_id); end;"] -set context [fs_context_bar_list -final "Move" $file_id] +set context [fs_context_bar_list -final "[_ file-storage.Move]" $file_id] ad_return_template Index: openacs-4/packages/file-storage/www/file.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.adp,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/file.adp 6 Sep 2002 21:50:38 -0000 1.8 +++ openacs-4/packages/file-storage/www/file.adp 5 Nov 2002 17:19:59 -0000 1.9 @@ -4,28 +4,28 @@ @context@

@@ -37,13 +37,13 @@
- - - - - - - + + + + + + + @@ -58,19 +58,21 @@ - +
Version filename : #file-storage.Version_filename_#
 Use the "Browse..." button to locate your file, - then click "Open". #file-storage.lt_Use_the_Browse_button#
Title: #file-storage.Title#
Description: #file-storage.Description#
+
Version filenameAuthorSize (bytes)TypeModifiedVersion NotesActions#file-storage.Version_filename##file-storage.Author##file-storage.Size_bytes##file-storage.Type##file-storage.Modified##file-storage.Version_Notes##file-storage.Actions_1#
@version.description@   - delete + #file-storage.delete# | - administer permissions + #file-storage.lt_administer_permission#
There are no versions of this file availible to you#file-storage.lt_There_are_no_versions#
+ + Index: openacs-4/packages/file-storage/www/file.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/file.tcl 17 Sep 2002 21:03:27 -0000 1.8 +++ openacs-4/packages/file-storage/www/file.tcl 5 Nov 2002 17:19:59 -0000 1.9 @@ -10,7 +10,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -75,3 +75,4 @@ db_multirow version version_info $sql ad_return_template + Index: openacs-4/packages/file-storage/www/folder-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.adp,v diff -u -r1.10 -r1.11 --- openacs-4/packages/file-storage/www/folder-chunk.adp 17 Sep 2002 21:03:27 -0000 1.10 +++ openacs-4/packages/file-storage/www/folder-chunk.adp 5 Nov 2002 17:19:59 -0000 1.11 @@ -2,11 +2,11 @@ - - - - - + + + + + @@ -16,58 +16,58 @@ - + - + - + - + - + @@ -81,5 +81,5 @@
 NameActionSizeTypeLast Modified#file-storage.Name##file-storage.Action##file-storage.Size##file-storage.Type##file-storage.Last_Modified#
folder#file-storage.folder# @contents.name@ -new +#file-storage.new#   - @contents.content_size@ items + @contents.content_size@ #file-storage.items##file-storage.item# @contents.type@#file-storage.folder# @contents.last_modified@ file#file-storage.file# @contents.name@ -new +#file-storage.new# [ - edit + #file-storage.edit# | - delete + #file-storage.delete# ]  @contents.type@@contents.type@ @contents.last_modified@ file#file-storage.file# @contents.name@ - new + #file-storage.new# [ - view details + #file-storage.view_details# ]
-

Folder @folder_name@ is empty

+

#file-storage.lt_Folder_folder_name_is#

Index: openacs-4/packages/file-storage/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 17 Sep 2002 21:03:27 -0000 1.8 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 5 Nov 2002 17:19:59 -0000 1.9 @@ -11,7 +11,7 @@ } if {![exists_and_not_null folder_id]} { - ad_return_complaint 1 "bad folder id $folder_id" + ad_return_complaint 1 [_ file-storage.lt_bad_folder_id_folder_] ad_script_abort } Index: openacs-4/packages/file-storage/www/folder-contents.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-contents.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/folder-contents.adp 6 Sep 2002 21:50:38 -0000 1.3 +++ openacs-4/packages/file-storage/www/folder-contents.adp 5 Nov 2002 17:19:59 -0000 1.4 @@ -7,13 +7,12 @@
  • - INot including items from subfolders - ( + I#file-storage.Not_i##file-storage.lt_ncluding_items_from_s# - exclude + #file-storage.exclude# - include + #file-storage.include# ) @@ -22,7 +21,7 @@
  • - Showing files modified within the past days. + #file-storage.lt_Showing_files_modifie# #file-storage.day#s. @@ -31,3 +30,5 @@
    @table@ + + Index: openacs-4/packages/file-storage/www/folder-contents.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-contents.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/file-storage/www/folder-contents.tcl 20 Sep 2002 21:34:08 -0000 1.9 +++ openacs-4/packages/file-storage/www/folder-contents.tcl 5 Nov 2002 17:19:59 -0000 1.10 @@ -41,19 +41,19 @@ -value $n_past_days element create n_past_days_form folder_id \ - -label "Folder ID" \ + -label "[_ file-storage.Folder_ID]" \ -datatype text \ -widget hidden \ -value $folder_id element create n_past_days_form recurse_p \ - -label "RecurseP" \ + -label "[_ file-storage.Recurse]" \ -datatype text \ -widget hidden \ -value $recurse_p element create n_past_days_form orderby \ - -label "Order By" \ + -label "[_ file-storage.Order_By]" \ -datatype text \ -widget hidden \ -value $orderby @@ -105,7 +105,7 @@ set table [ad_table \ -Torderby $orderby \ - -Tmissing_text "
    Folder [fs::get_object_name -object_id $folder_id] is empty.
    " \ + -Tmissing_text "
    [_ [ad_conn locale] file-storage.lt_Folder_folder_name_is] "" [list folder_name [fs::get_object_name -object_id $folder_id]]]
    " \ -Ttable_extra_html {width="95%"} \ select_folder_contents \ $sql \ @@ -114,4 +114,3 @@ set folder_name [fs::get_object_name -object_id $folder_id] set context [fs_context_bar_list -final Contents $folder_id] - Index: openacs-4/packages/file-storage/www/folder-create-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/folder-create-2.tcl 18 Sep 2002 12:09:59 -0000 1.3 +++ openacs-4/packages/file-storage/www/folder-create-2.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -10,7 +10,7 @@ } -validate { valid_folder -requires {parent_id:integer} { if ![fs_folder_p $parent_id] { - ad_complain "The specified parent folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_parent_]" } } } @@ -46,25 +46,10 @@ } on_error { - # most likely a duplicate name or a double click - - #if [db_string duplicate_check " - #select count(*) - #from cr_items - #where name = :name - #and parent_id = :parent_id"] { + ad_return_complaint 1 [_ [ad_conn locale] file-storage.lt_Either_there_is_alrea] "" [list folder_name $folder_name directory_url "index?folder_id=$parent_id"]] - ad_return_complaint 1 "Either there is already a folder with the name \"$folder_name\" 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 folder 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_script_abort } ad_returnredirect "?folder_id=$folder_id" - - Index: openacs-4/packages/file-storage/www/folder-create.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/folder-create.adp 6 Sep 2002 21:50:38 -0000 1.3 +++ openacs-4/packages/file-storage/www/folder-create.adp 5 Nov 2002 17:19:59 -0000 1.4 @@ -1,5 +1,5 @@ -Create New Folder +#file-storage.Create_New_Folder# @context@ @@ -8,13 +8,14 @@ - + - +
    Folder Name:#file-storage.Folder_Name#
     
    - \ No newline at end of file + + Index: openacs-4/packages/file-storage/www/folder-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/folder-create.tcl 5 Sep 2002 09:29:00 -0000 1.2 +++ openacs-4/packages/file-storage/www/folder-create.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -9,7 +9,7 @@ } -validate { valid_folder -requires {parent_id:integer} { if ![fs_folder_p $parent_id] { - ad_complain "The specified parent folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_parent_]" } } } -properties { @@ -23,6 +23,7 @@ # set templating datasources -set context [fs_context_bar_list -final "Create New Folder" $parent_id] +set context [fs_context_bar_list -final "[_ file-storage.Create_New_Folder]" $parent_id] ad_return_template + Index: openacs-4/packages/file-storage/www/folder-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/folder-delete.adp 6 Sep 2002 21:50:38 -0000 1.3 +++ openacs-4/packages/file-storage/www/folder-delete.adp 5 Nov 2002 17:19:59 -0000 1.4 @@ -4,8 +4,7 @@ -

    This folder contains items that you do not have permission to -delete, therefore you cannot delete it. +

    #file-storage.lt_This_folder_contains_# @@ -14,14 +13,14 @@ -

    Are you sure you want to delete the folder "@folder_name@" and all -the items it contains? This action cannot be reversed. +

    #file-storage.lt_delete_folder#

    - +
    - \ No newline at end of file + + Index: openacs-4/packages/file-storage/www/folder-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/folder-delete.tcl 17 Sep 2002 21:03:27 -0000 1.4 +++ openacs-4/packages/file-storage/www/folder-delete.tcl 5 Nov 2002 17:19:59 -0000 1.5 @@ -11,20 +11,20 @@ } -validate { valid_folder -requires {folder_id:integer} { if ![fs_folder_p $folder_id] { - ad_complain "The specified folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_folder__1]" } } } -validate { not_root_folder -requires {folder_id} { if { $folder_id == [fs_get_root_folder] } { - ad_complain "You may not delete the root folder." + ad_complain "[_ file-storage.lt_You_may_not_delete_th]" } } no_children -requires {not_root_folder} { if { [db_string child_count " select count(*) from cr_items where parent_id = :folder_id"] > 0 } { - ad_complain "We're sorry, but at the moment you cannot delete folders unless they are already empty." + ad_complain "[_ file-storage.lt_Were_sorry_but_at_the]" } } } -properties { @@ -64,6 +64,5 @@ set folder_name [db_string folder_name " select label from cr_folders where folder_id = :folder_id"] - set context [fs_context_bar_list -final "Delete" $folder_id] - + set context [fs_context_bar_list -final "[_ file-storage.Delete]" $folder_id] } \ No newline at end of file Index: openacs-4/packages/file-storage/www/folder-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-edit-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-edit-2.tcl 17 Sep 2002 21:03:27 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-edit-2.tcl 5 Nov 2002 17:19:59 -0000 1.2 @@ -10,7 +10,7 @@ } -validate { valid_folder -requires {folder_id:integer} { if ![fs_folder_p $folder_id] { - ad_complain "The specified folder does not exist." + ad_complain "[_ file-storage.lt_The_specified_folder_]" } } } @@ -32,5 +32,3 @@ db_exec_plsql folder_rename {} ad_returnredirect "?folder_id=$folder_id" - - Index: openacs-4/packages/file-storage/www/folder-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-edit.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-edit.adp 17 Sep 2002 21:03:27 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-edit.adp 5 Nov 2002 17:19:59 -0000 1.2 @@ -1,5 +1,5 @@ -Edit Folder +#file-storage.Edit_Folder# @context_bar@ @@ -8,13 +8,14 @@ - + - +
    Folder Name:#file-storage.Folder_Name#
     
    - \ No newline at end of file + + Index: openacs-4/packages/file-storage/www/folder-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-edit.tcl 17 Sep 2002 21:03:27 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-edit.tcl 5 Nov 2002 17:19:59 -0000 1.2 @@ -9,7 +9,7 @@ } -validate { valid_folder -requires {parent_id:integer} { if ![fs_folder_p $folder_id] { - ad_complain "The specified folder does not exist." + ad_complain "[_ file-storage.lt_The_specified_folder_]" } } } -properties { @@ -21,7 +21,7 @@ # set templating datasources -set context_bar [fs_context_bar_list -final "Edit" $folder_id] +set context_bar [fs_context_bar_list -final "[_ file-storage.Edit]" $folder_id] set folder_name [fs_get_folder_name $folder_id] Index: openacs-4/packages/file-storage/www/folder-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-list.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-list.adp 20 Nov 2001 02:04:50 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-list.adp 5 Nov 2002 17:19:59 -0000 1.2 @@ -8,3 +8,4 @@ + Index: openacs-4/packages/file-storage/www/folder-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-list.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-list.tcl 20 Nov 2001 02:04:50 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-list.tcl 5 Nov 2002 17:19:59 -0000 1.2 @@ -3,11 +3,6 @@ if ![empty_string_p $file_id] { set children_clause [db_map children_clause] - #"and item_id not in (select item_id - #from cr_items - #where item_id != :file_id - #connect by prior item_id = parent_id - #start with item_id = :file_id)" } else { set children_clause "" } @@ -27,4 +22,3 @@ start with item_id = file_storage.get_root_folder(:package_id) " db_multirow folder folder $sql - Index: openacs-4/packages/file-storage/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.adp,v diff -u -r1.17 -r1.18 --- openacs-4/packages/file-storage/www/index.adp 17 Sep 2002 21:03:27 -0000 1.17 +++ openacs-4/packages/file-storage/www/index.adp 5 Nov 2002 17:19:59 -0000 1.18 @@ -7,22 +7,22 @@ - Upload a file + #file-storage.Upload_a_file#   |   - Create a URL + #file-storage.Create_a_URL#   |   - Create a new folder + #file-storage.Create_a_new_folder#   |   - Rename this folder + #file-storage.Rename_this_folder#   |   - Delete this folder + #file-storage.Delete_this_folder# - Show files modified in the past days as new. + #file-storage.lt_Show_files_modified_i# #file-storage.days_as_new# @@ -31,7 +31,7 @@ - Modify permissions on this folder + #file-storage.lt_Modify_permissions_on_1# @@ -49,9 +49,11 @@

    - Download an archive of the contents of this folder + #file-storage.lt_Download_an_archive_o#
    - Note: This may take a while, please be patient. + #file-storage.Note# #file-storage.lt_This_may_take_a_while# + + Index: openacs-4/packages/file-storage/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/file-storage/www/index.tcl 10 Sep 2002 22:22:56 -0000 1.18 +++ openacs-4/packages/file-storage/www/index.tcl 5 Nov 2002 17:19:59 -0000 1.19 @@ -11,7 +11,7 @@ } -validate { valid_folder -requires {folder_id:integer} { if {![fs_folder_p $folder_id]} { - ad_complain "The specified folder is not valid." + ad_complain "[_ file-storage.lt_The_specified_folder__1]" } } } -properties { @@ -68,7 +68,7 @@ -value $n_past_days element create n_past_days_form folder_id \ - -label "Folder ID" \ + -label "[_ file-storage.Folder_ID]" \ -datatype text \ -widget hidden \ -value $folder_id Index: openacs-4/packages/file-storage/www/search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/search.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/search.adp 6 Sep 2002 21:50:38 -0000 1.3 +++ openacs-4/packages/file-storage/www/search.adp 5 Nov 2002 17:19:59 -0000 1.4 @@ -1,5 +1,5 @@ -Search Results +#file-storage.Search_Results# @context@ @@ -16,7 +16,9 @@

    -Search again: +#file-storage.Search_again#
    + + Index: openacs-4/packages/file-storage/www/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/search.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/search.tcl 5 Sep 2002 09:29:00 -0000 1.2 +++ openacs-4/packages/file-storage/www/search.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -13,7 +13,7 @@ } set user_id [ad_conn user_id] -set context "Search" +set context [_ file-storage.Search] # Bash the query to lowercase @@ -38,4 +38,4 @@ set query $orig_query -ad_return_template \ No newline at end of file +ad_return_template Index: openacs-4/packages/file-storage/www/simple-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/simple-add-2.tcl 27 Apr 2002 17:00:16 -0000 1.2 +++ openacs-4/packages/file-storage/www/simple-add-2.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -12,7 +12,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 "[_ file-storage.lt_The_specified_parent_]" } } @@ -25,3 +25,4 @@ set url_id [fs::url_new -url $url -name $title -description $description -folder_id $folder_id] ad_returnredirect "?folder_id=$folder_id" + Index: openacs-4/packages/file-storage/www/simple-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/simple-add.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/simple-add.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -9,7 +9,7 @@ - + @@ -20,20 +20,22 @@ - + - + -
    Title: #file-storage.Title#
    URL: #file-storage.URL#
    Description: #file-storage.Description#
    +
    + + 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.4 -r1.5 --- openacs-4/packages/file-storage/www/simple-add.tcl 10 Sep 2002 22:22:56 -0000 1.4 +++ openacs-4/packages/file-storage/www/simple-add.tcl 5 Nov 2002 17:19:59 -0000 1.5 @@ -13,7 +13,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 "[_ file-storage.lt_The_specified_parent_]" } } } -properties { @@ -29,10 +29,10 @@ 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 "[_ file-storage.No_such_type]" } -set context [fs_context_bar_list -final "Add $pretty_name" $folder_id] +set context [fs_context_bar_list -final [_ [ad_conn locale] file-storage.Add_pretty_name "" [list pretty_name $pretty_name]]" $folder_id] # Should probably generate the item_id and version_id now for # double-click protection Index: openacs-4/packages/file-storage/www/simple-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-delete.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/simple-delete.tcl 10 Sep 2002 22:22:56 -0000 1.2 +++ openacs-4/packages/file-storage/www/simple-delete.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -16,3 +16,4 @@ fs::simple_delete -object_id $object_id ad_returnredirect "./?folder_id=$folder_id" + Index: openacs-4/packages/file-storage/www/simple-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/simple-edit-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/simple-edit-2.tcl 2 Apr 2002 06:50:49 -0000 1.1 +++ openacs-4/packages/file-storage/www/simple-edit-2.tcl 5 Nov 2002 17:19:59 -0000 1.2 @@ -20,3 +20,4 @@ set folder_id [db_string select_folder_id "select folder_id from fs_simple_objects where object_id= :object_id"] ad_returnredirect "?folder_id=$folder_id" + Index: openacs-4/packages/file-storage/www/simple-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/simple-edit.adp 6 Sep 2002 21:50:38 -0000 1.3 +++ openacs-4/packages/file-storage/www/simple-edit.adp 5 Nov 2002 17:19:59 -0000 1.4 @@ -8,23 +8,23 @@ - + - + - + - Index: openacs-4/packages/file-storage/www/simple-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/simple-edit.tcl 5 Sep 2002 09:29:00 -0000 1.2 +++ openacs-4/packages/file-storage/www/simple-edit.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -15,9 +15,10 @@ db_1row select_item_info "select name, url, description, folder_id from fs_urls_full where url_id= :object_id" set pretty_name "$name" -set context [fs_context_bar_list -final "Edit URL" $folder_id] +set context [fs_context_bar_list -final "[_ file-storage.Edit_URL]" $folder_id] # Should probably generate the item_id and version_id now for # double-click protection ad_return_template + Index: openacs-4/packages/file-storage/www/url-goto.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/url-goto.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/url-goto.tcl 10 Sep 2002 22:22:56 -0000 1.2 +++ openacs-4/packages/file-storage/www/url-goto.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -17,5 +17,6 @@ if {![empty_string_p $url]} { ad_returnredirect $url } else { - return -code error "no such URL" + return -code error [_ file-storage.no_such_URL] } + Index: openacs-4/packages/file-storage/www/version-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/version-add-2.tcl 22 Sep 2001 05:57:56 -0000 1.2 +++ openacs-4/packages/file-storage/www/version-add-2.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -13,15 +13,16 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } 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)" + set number_of_bytes "[util_commify_number $max_bytes]" + ad_complain [_ [ad_conn locale] file-storage.lt_Your_file_is_larger_t] "" [list number_of_bytes $number_of_bytes]] } } } Index: openacs-4/packages/file-storage/www/version-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/version-add.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/version-add.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -8,14 +8,13 @@
    Title : #file-storage.Title_#
    URL: #file-storage.URL#
    Description: #file-storage.Description#
    +
    - + - + @@ -24,13 +23,13 @@ - + - Index: openacs-4/packages/file-storage/www/version-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/version-add.tcl 5 Sep 2002 09:29:00 -0000 1.3 +++ openacs-4/packages/file-storage/www/version-add.tcl 5 Nov 2002 17:19:59 -0000 1.4 @@ -9,7 +9,7 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } } -properties { @@ -31,6 +31,6 @@ from cr_items where item_id = :file_id)" -set context [fs_context_bar_list -final "Upload New Version" $file_id] +set context [fs_context_bar_list -final "[_ file-storage.Upload_New_Version]" $file_id] ad_return_template Index: openacs-4/packages/file-storage/www/version-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/version-delete.adp 6 Sep 2002 21:50:38 -0000 1.4 +++ openacs-4/packages/file-storage/www/version-delete.adp 5 Nov 2002 17:19:59 -0000 1.5 @@ -6,14 +6,10 @@ -

    Are you sure that you want to delete this version "@version_name@" of "@title@"? -This action cannot be reversed. +

    #file-storage.lt_Are_you_sure_that_you#

    - +
    - - - Index: openacs-4/packages/file-storage/www/version-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/file-storage/www/version-delete.tcl 17 Sep 2002 21:03:27 -0000 1.6 +++ openacs-4/packages/file-storage/www/version-delete.tcl 5 Nov 2002 17:19:59 -0000 1.7 @@ -10,7 +10,7 @@ } -validate { valid_version -requires {version_id} { if ![fs_version_p $version_id] { - ad_complain "The specified version is not valid." + ad_complain [_ file-storage.lt_version_not_valid] } } } -properties { @@ -69,5 +69,5 @@ where i.item_id = r.item_id and revision_id = :version_id" - set context [fs_context_bar_list -final "Delete Version" $item_id] + set context [fs_context_bar_list -final [_ file-storage.Delete_Version] $item_id] }
    Version filename:#file-storage.Version_filename_1#
     Use the "Browse..." button to locate your file, - then click "Open". #file-storage.lt_Use_the_Browse_button#
    Version Notes: #file-storage.Version_Notes_1#
    +