Index: openacs-4/packages/assessment/lib/session-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/lib/session-items.tcl	21 Feb 2005 14:32:55 -0000	1.4
+++ openacs-4/packages/assessment/lib/session-items.tcl	2 Mar 2005 17:18:25 -0000	1.5
@@ -27,10 +27,14 @@
 	set answered_p t
 
 	if {$result_points < $points} {
-	    set feedback "<font color=red>$feedback_wrong</font>"
+	    if {$show_feedback != "correct"} {
+	        set feedback "<font color=red>$feedback_wrong</font>"
+	    }	
 	} else {
-	    set feedback "<font color=green>$feedback_right</font>"
-	}
+	    if {$show_feedback != "incorrect"} {
+	        set feedback "<font color=green>$feedback_right</font>"
+	    }
+	}	
     } else {
 	set result_points ""
 	set feedback ""