Index: openacs-4/packages/download/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/index.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/download/www/index.tcl 16 May 2001 09:41:05 -0000 1.4 +++ openacs-4/packages/download/www/index.tcl 4 Sep 2002 12:05:21 -0000 1.5 @@ -13,6 +13,9 @@ title:onevalue description:onevalue help_text:onevalue + write_p:onevalue + admin_p:onevalue + master_admin_p:onevalue } set return_url "[ad_conn url]?[ad_conn query]" @@ -21,6 +24,7 @@ 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]