Index: openacs-4/packages/assessment/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/sessions.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/assessment/www/sessions.tcl	24 Jan 2005 14:54:31 -0000	1.15
+++ openacs-4/packages/assessment/www/sessions.tcl	21 Feb 2005 14:32:56 -0000	1.16
@@ -18,6 +18,7 @@
 set context_bar [ad_context_bar $page_title]
 set format "[lc_get formbuilder_date_format], [lc_get formbuilder_time_format]"
 set user_id [ad_conn user_id]
+permission::require_permission -object_id $assessment_id -privilege read
 
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id