Index: openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	21 Feb 2005 14:32:56 -0000	1.14
+++ openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	24 Feb 2005 09:22:12 -0000	1.15
@@ -108,7 +108,7 @@
 	array set values $default_value
 	set default $values(clob_answer)
     } else {
-	db_1row item_type_data {}
+	set default [db_string item_type_data {}]
     }
 
     return [list $default ""]
@@ -136,7 +136,7 @@
     if {[llength $keywords] > 0} {
 	set points 0
 	foreach keyword $keywords {
-	    if {[regexp $keyword $response]} {
+	    if {[regexp -nocase [string tolower $keyword] $response]} {
 		incr points
 	    }
 	}