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.19.2.4 -r1.19.2.5
--- openacs-4/packages/assessment/lib/session-items.tcl 16 Sep 2008 17:19:01 -0000 1.19.2.4
+++ openacs-4/packages/assessment/lib/session-items.tcl 14 Oct 2008 18:58:24 -0000 1.19.2.5
@@ -79,7 +79,7 @@
set correct_p 0
if {$show_feedback != "correct"} {
if { $feedback_wrong ne "" } {
- set feedback "$feedback_wrong"
+ set feedback "$feedback_wrong"
set has_feedback_p 1
} else {
set feedback ""
@@ -89,7 +89,7 @@
set correct_p 1
if {$show_feedback ne "incorrect"} {
if { $feedback_right ne "" } {
- set feedback "$feedback_right"
+ set feedback "$feedback_right"
set has_feedback_p 1
} else {
set feedback ""
@@ -110,7 +110,7 @@
set correct_p 0
if {$show_feedback != "correct"} {
if { $feedback_wrong ne "" } {
- set feedback "$feedback_wrong"
+ set feedback "$feedback_wrong"
set has_feedback_p 1
} else {
set feedback ""
@@ -119,7 +119,7 @@
} else {
if {$show_feedback != "incorrect"} {
if { $feedback_right ne "" } {
- set feedback "$feedback_right"
+ set feedback "$feedback_right"
set has_feedback_p 1
} else {
set feedback ""
@@ -145,7 +145,7 @@
if { !$correct_p } {
if {$show_feedback != "correct"} {
if { $feedback_wrong ne "" } {
- set feedback "$feedback_wrong"
+ set feedback "$feedback_wrong"
set has_feedback_p 1
} else {
set feedback ""
@@ -154,7 +154,7 @@
} else {
if {$show_feedback != "incorrect"} {
if { $feedback_right ne "" } {
- set feedback "$feedback_right"
+ set feedback "$feedback_right"
set has_feedback_p 1
} else {
set feedback ""