virgil/commit

FIX match case insensitive

authorMichiel Hildebrand
Tue Mar 26 15:27:15 2013 +0100
committerMichiel Hildebrand
Tue Mar 26 15:27:15 2013 +0100
commit2fcdbb59105d77b0d1e9b08fec13bc51daa00259
tree9178b202ff580676c1d4649dc80ae35c858a4477
parent99baf84e955bb5f2110fe800376a3be1ea7260d9
Diff style: patch stat
diff --git a/lib/drug_spell_check.pl b/lib/drug_spell_check.pl
index 245c293..b0dcf64 100644
--- a/lib/drug_spell_check.pl
+++ b/lib/drug_spell_check.pl
@@ -46,7 +46,7 @@ spell_check([_|T], PID, Rest) :-
 	spell_check(T, PID, Rest).
 
 assert_suggestion(H-Suggestion) :-
-	rdf_find_literals(H, Literals),
+	rdf_find_literals(case(H), Literals),
 	forall((member(Lit, Literals),
 	        rdf(R,aers:drugname,literal(Lit))),
 	       rdf_assert(R,aers:drugname_corrected,literal(Suggestion),corrected_drugnames)).