Index: openacs-4/packages/assessment/www/session.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.adp,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/assessment/www/session.adp	22 Nov 2004 11:40:42 -0000	1.12
+++ openacs-4/packages/assessment/www/session.adp	20 Dec 2004 13:33:14 -0000	1.13
@@ -33,16 +33,19 @@
 			<tr><td colspan="2">
 			@items.choice_html;noquote@</td></tr>
 			<if @items.presentation_type@ in textarea>
-			   <tr><td nowrap></td><td><if @survey_p@ in f><span><i>#assessment.This_question_will_be_corrected_by_the_teacher#.</i></span></if></td></tr>
+			   <tr><td nowrap></td><td><if @survey_p@ eq f and @assessment_show_feedback@ ne none><span><i>#assessment.This_question_will_be_corrected_by_the_teacher#.</i></span></if></td></tr>
 			   <tr><td></td><td></td></tr>
 			   <tr><td><br></td></tr>
 			</if>
 			<else>
-			<if @survey_p@ in f>
+			<if @survey_p@ eq f and @assessment_show_feedback@ ne none >
 			<tr><td nowrap>
 			#assessment.Score#</td><td><span>@items.score@ / @items.maxscore@</span>
 			<if @items.notanswered@>(<i>#assessment.Question_not_answered#.</i>)</if></td></tr>
-			<tr><td></td><td><b>#assessment.Feedback#:</b> <if @items.item_correct@>@items.feedback_right@</if><if @items.item_correct@ false>@items.feedback_wrong@</if></td></tr>
+			<tr><td></td> <if @assessment_show_feedback@ eq all or @assessment_show_feedback@ eq correct>
+			<if @items.item_correct@><td><b>#assessment.Feedback#:</b> @items.feedback_right@</if></if>
+			<if @assessment_show_feedback@ eq all or @assessment_show_feedback@ eq incorrect>
+			<if @items.item_correct@ false><td><b>#assessment.Feedback#:</b> @items.feedback_wrong@</if></if></td></tr>
 			</if>
 			<tr><td><br></td></tr>
 			</else>
@@ -51,5 +54,5 @@
     </table>
 </multiple>
 <hr>
-<if @survey_p@ in f><b>#assessment.Total_score#:</b> @session_score@ / @assessment_score@</if>
+<if @survey_p@ eq f and @assessment_show_feedback@ ne none ><b>#assessment.Total_score#:</b> @session_score@ / @assessment_score@</if>
 </master>
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 {}
     }