Index: openacs-4/packages/assessment/www/admin/assessment-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/assessment-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/assessment-delete.tcl	23 Jan 2005 20:23:58 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/assessment-delete.tcl	24 Jan 2005 14:54:31 -0000	1.2
@@ -10,7 +10,7 @@
     page_title:onevalue
 }
 
-permission::permission_p -object_id $assessment_id -privilege admin
+permission::require_permission -object_id $assessment_id -privilege admin
 
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id