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.22 -r1.23
--- openacs-4/packages/file-storage/www/file.tcl	11 Jul 2004 19:09:07 -0000	1.22
+++ openacs-4/packages/file-storage/www/file.tcl	13 Jan 2005 13:58:13 -0000	1.23
@@ -42,12 +42,14 @@
 } else {
     set show_versions [db_map show_live_version]
 }
-set actions [list "Upload Revision" version-add?[export_vars file_id] "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 return_url [ad_conn url]?[export_vars file_id]
 
+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]
 }