Index: openacs-4/packages/assessment/www/session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v diff -u -r1.23 -r1.24 --- openacs-4/packages/assessment/www/session.tcl 16 Dec 2004 09:27:18 -0000 1.23 +++ openacs-4/packages/assessment/www/session.tcl 20 Dec 2004 13:33:14 -0000 1.24 @@ -32,6 +32,17 @@ AND ss.session_id = :session_id }] +set assessment_show_feedback [db_string assessment_show_feedback { + SELECT a.show_feedback + FROM as_assessmentsx a, as_sessionsx ss + WHERE a.assessment_id = ss.assessment_id + AND ss.session_id = :session_id +}] + +if {[empty_string_p $assessment_show_feedback]} { + set assessment_show_feedback "all" +} + #get the user takes a session db_1row session_user_id { SELECT p.first_names, p.last_name, ss.assessment_id @@ -153,7 +164,7 @@ } #if it's a survey we show the selected answer with out the word Error - if {$survey_p == {t}} { + if {$survey_p == {t} || $assessment_show_feedback == {none}} { set correct_answer {} }