Index: openacs-4/packages/assessment/lib/results-edit-oq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-edit-oq.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/lib/results-edit-oq.tcl	21 Feb 2005 14:32:55 -0000	1.1
+++ openacs-4/packages/assessment/lib/results-edit-oq.tcl	24 Feb 2005 09:22:11 -0000	1.2
@@ -2,9 +2,9 @@
 # author Timo Hentschel (timo@timohentschel.de)
 
 db_1row item_type_data {}
-set keywords [ad_quotehtml [join $keywords "\n"]]
+set keywords [string tolower [ad_quotehtml [join $keywords "\n"]]]
 set answer_text [ad_text_to_html -no_links -- $answer_text]
 
 foreach keyword $keywords {
-    regsub -all $keyword $answer_text "<font color=green>$keyword</font>" answer_text
+    regsub -all -nocase $keyword $answer_text {<font color=green>\0</font>} answer_text
 }