Index: openacs-4/packages/assessment/www/admin/item-add-mc-choices.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-mc-choices.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/item-add-mc-choices.tcl	8 Dec 2004 15:30:34 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/item-add-mc-choices.tcl	29 Dec 2004 09:07:39 -0000	1.3
@@ -18,7 +18,7 @@
     page_title:onevalue
 }
 
-ad_require_permission $assessment_id admin
+permission::permission_p -object_id $assessment_id -privilege admin
 
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id