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.24 -r1.25
--- openacs-4/packages/file-storage/www/file.tcl	2 Mar 2005 00:43:53 -0000	1.24
+++ openacs-4/packages/file-storage/www/file.tcl	7 Mar 2005 15:32:12 -0000	1.25
@@ -25,7 +25,7 @@
 
 # check they have read permission on this file
 
-ad_require_permission $file_id read
+permission::require_permission -object_id $file_id -privilege read
 
 #set templating datasources
 
@@ -51,7 +51,7 @@
 		 "[_ 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]
+    lappend actions [_ file-storage.Set_Permissions] [export_vars -base permissions {{object_id $file_id}}] [_ file-storage.lt_Modify_permissions_on]
 }
 
 template::list::create \