Index: openacs-4/packages/download/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/download/www/index.tcl	1 Mar 2005 00:01:29 -0000	1.8
+++ openacs-4/packages/download/www/index.tcl	6 Sep 2013 16:36:34 -0000	1.8.2.1
@@ -24,9 +24,9 @@
 array set repository [download_repository_info]
 set repository_id $repository(repository_id)
 
-set master_admin_p [ad_permission_p [ad_conn package_id] admin]
-set admin_p [ad_permission_p $repository_id admin]
-set write_p [ad_permission_p $repository_id write]
+set master_admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
+set admin_p [permission::permission_p -object_id $repository_id -privilege admin]
+set write_p [permission::permission_p -object_id $repository_id -privilege write]
 
 set title $repository(title)
 set description $repository(description)