Index: openacs-4/packages/assessment/www/last-session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/last-session.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/last-session.tcl	12 Jun 2006 12:22:42 -0000	1.4
+++ openacs-4/packages/assessment/www/last-session.tcl	29 Sep 2013 13:40:40 -0000	1.5
@@ -106,7 +106,7 @@
 
 
 #if the user is admin he will display all sessions from all subjects
-if {[ad_permission_p [acs_magic_object "security_context_root"] "admin"]} {
+if {[permission::permission_p -object_id [acs_magic_object "security_context_root"] -privilege "admin"]} {
     set query "sessions_of_assessment_of_subject"
 } else {
     set query "sessions_of_assessment"