Index: openacs-4/packages/assessment/www/instructions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/instructions.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/instructions.tcl 15 May 2007 20:14:17 -0000 1.2 +++ openacs-4/packages/assessment/www/instructions.tcl 1 Dec 2008 16:57:02 -0000 1.3 @@ -16,6 +16,11 @@ -privilege read as::assessment::data -assessment_id $assessment_id +if { $assessment_data(publish_status) ne "live" } { + ad_return_complaint 1 [_ assessment.Requested_assess_is_no_longer_available] + return +} + if {$assessment_data(instructions) eq ""} { set assessment_data(instructions) "[_ assessment.lt_default_instructions]" }