Index: openacs-4/packages/download/www/archive-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-add.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/download/www/archive-add.tcl	1 Mar 2005 00:01:29 -0000	1.4
+++ openacs-4/packages/download/www/archive-add.tcl	12 Sep 2013 10:26:11 -0000	1.5
@@ -19,7 +19,7 @@
 set description $repository(description)
 set help_text $repository(help_text)
 
-set admin_p [ad_permission_p $repository_id admin]
+set admin_p [permission::permission_p -object_id $repository_id -privilege admin]
 
 set extra_form_elts ""
 db_foreach metadata {