Index: openacs-4/packages/assessment/www/asm-admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/index.adp 4 Feb 2005 18:07:08 -0000 1.3
+++ openacs-4/packages/assessment/www/asm-admin/index.adp 9 Feb 2005 10:58:47 -0000 1.4
@@ -2,7 +2,7 @@
@title;noquote@
@context;noquote@
-
+
#assessment.admin_categories#
| #assessment.admin_actions# | #assessment.admin_requests# | #assessment.permissions#
Index: openacs-4/packages/assessment/www/asm-admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/index.tcl 4 Feb 2005 18:07:08 -0000 1.4
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl 9 Feb 2005 10:58:47 -0000 1.5
@@ -19,11 +19,9 @@
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]
-set package_admin [permission::permission_p -party_id $user_id -object_id $package_id -privilege "admin"]
-set m_name ""
+set package_admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege "admin"]
-if { $package_admin == 0} {
+if { $package_admin_p == 0} {
set m_name "get_all_assessments_admin"
} else {
set m_name "get_all_assessments"