Index: openacs-4/packages/anon-eval/www/assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/assessment.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/anon-eval/www/assessment.tcl 4 Feb 2006 13:42:03 -0000 1.3 +++ openacs-4/packages/anon-eval/www/assessment.tcl 6 Feb 2006 16:02:25 -0000 1.4 @@ -49,11 +49,14 @@ set assessment_rev_id $assessment_data(assessment_rev_id) -if {[empty_string_p $session_id]} { +# Don't check for conditions for admin, admin can test the assessment +if { [empty_string_p $session_id] && ! $admin_p } { set errors [as::assessment::check_session_conditions -assessment_id $assessment_rev_id -subject_id $user_id -password $password] if {![empty_string_p $errors]} { - ad_return_complaint 1 $errors - ad_script_abort + if { + ad_return_complaint 1 $errors + ad_script_abort + } } }