Index: openacs-4/packages/assessment/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/assessment/www/sessions.tcl	2 Feb 2008 17:40:05 -0000	1.20
+++ openacs-4/packages/assessment/www/sessions.tcl	29 Sep 2013 13:40:40 -0000	1.21
@@ -29,7 +29,7 @@
 }
 
 set assessment_rev_id $assessment_data(assessment_rev_id)
-set admin_p [ad_permission_p $assessment_id admin]
+set admin_p [permission::permission_p -object_id $assessment_id -privilege admin]
 
 #if the user is admin he will display all sessions from all subjects
 if {$admin_p && [empty_string_p $subject_id]} {