Index: openacs-4/packages/assessment/lib/session-items.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.adp,v diff -u -r1.12.2.2 -r1.12.2.3 --- openacs-4/packages/assessment/lib/session-items.adp 5 Feb 2007 14:10:42 -0000 1.12.2.2 +++ openacs-4/packages/assessment/lib/session-items.adp 18 Feb 2007 22:33:56 -0000 1.12.2.3 @@ -4,6 +4,7 @@ +

Edit this question

@items.name@: 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 -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)]