Index: openacs-4/packages/assessment/lib/session-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v
diff -u -N -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/assessment/lib/session-items.tcl	26 Jan 2007 00:33:57 -0000	1.16.2.1
+++ openacs-4/packages/assessment/lib/session-items.tcl	18 Feb 2007 22:33:56 -0000	1.16.2.2
@@ -8,6 +8,13 @@
 if {![info exists assessment_id]} {
     set assessment_id $assessment_data(assessment_id)
 }
+
+set admin_p [permission::permission_p \
+		 -party_id [ad_conn user_id] \
+		 -privilege admin \
+		 -object_id $assessment_id]
+
+
 # if we can tell this is the last section, next button should go to feedback for the entire assessment.
 
 set section_list [as::assessment::sections -assessment_id $assessment_id -session_id $session_id -sort_order_type $assessment_data(section_navigation) -random_p $assessment_data(random_p)]