Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/assessment/www/session.tcl	24 Jan 2005 14:54:31 -0000	1.32
+++ openacs-4/packages/assessment/www/session.tcl	21 Feb 2005 14:32:56 -0000	1.33
@@ -16,6 +16,7 @@
 
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id
+permission::require_permission -object_id $assessment_id -privilege read
 
 if {![info exists assessment_data(assessment_id)]} {
     ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
@@ -34,6 +35,7 @@
 
 # get start and end times
 db_1row session_data {}
+set session_time [as::assessment::pretty_time -seconds $session_time -hours]
 
 # get the number of attempts
 set session_attempt [db_string session_attempt {}]