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 -N -r1.18.2.5 -r1.18.2.6 --- openacs-4/packages/file-storage/www/file.tcl 26 Jul 2004 23:57:01 -0000 1.18.2.5 +++ openacs-4/packages/file-storage/www/file.tcl 2 Sep 2004 15:49:06 -0000 1.18.2.6 @@ -44,11 +44,11 @@ } set return_url [ad_conn url]?[export_vars file_id] -set actions [list "Upload Revision" file-add?[export_vars [list file_id return_url]] "Upload a new version of this file" \ - "Rename File" file-edit?[export_vars file_id] "Rename file" \ - "Copy File" file-copy?[export_vars file_id] "Copy file" \ - "Move File" file-move?[export_vars file_id] "Move file" \ - "Delete File" file-delete?[export_vars file_id] "Delete file"] +set actions [list "[_ file-storage.Upload_Revision]" file-add?[export_vars [list file_id return_url]] "Upload a new version of this file" \ + "[_ file-storage.Rename_File]" file-edit?[export_vars file_id] "Rename file" \ + "[_ file-storage.Copy_File]" file-copy?[export_vars file_id] "Copy file" \ + "[_ file-storage.Move_File]" file-move?[export_vars file_id] "Move file" \ + "[_ file-storage.Delete_File]" file-delete?[export_vars file_id] "Delete file"] if {[string equal $delete_p "t"]} { lappend actions [_ file-storage.Set_Permissions] "/permissions/one?[export_vars {{object_id $file_id}}]" [_ file-storage.lt_Modify_permissions_on]