Index: openacs-4/packages/assessment/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/index.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/admin/index.tcl	22 Dec 2004 20:52:18 -0000	1.8
+++ openacs-4/packages/assessment/www/admin/index.tcl	1 Feb 2005 21:33:13 -0000	1.9
@@ -17,6 +17,8 @@
 set context {}
 set package_id [ad_conn package_id]
 set categories_url [db_string get_category_url {}]
+set user_id [ad_conn user_id]
+set admin_p [ad_permission_p $package_id admin]
 
 #form to upload a QTI ZIP file
 ad_form -name form_upload_file -action {unzip-file} -html {enctype multipart/form-data}  -form {