Index: openacs-4/packages/download/www/archive-version-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-version-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/download/www/archive-version-add-2.tcl	10 Sep 2002 22:22:34 -0000	1.2
+++ openacs-4/packages/download/www/archive-version-add-2.tcl	12 Sep 2013 10:26:11 -0000	1.3
@@ -24,10 +24,10 @@
 ##Then insert into the download_revision_data
 set repository_id [download_repository_id]
 set user_id [ad_conn user_id]
-set admin_p [ad_permission_p $repository_id admin]
+set admin_p [permission::permission_p -object_id $repository_id -privilege admin]
 
 # check for write permission on this folder
-ad_require_permission $archive_id write
+permission::require_permission -object_id $archive_id -privilege write
 
 set approved_p [ad_decode $admin_p 0 [db_null] "t"]
 set approved_date [ad_decode $admin_p 0 [db_null] "sysdate"]