virgil/commit

Add spelling variations on brandname

diff --git a/api/drugs.pl b/api/drugs.pl
index 4e6737e..29ccab3 100644
--- a/api/drugs.pl
+++ b/api/drugs.pl
@@ -56,14 +56,21 @@ drug_mention(Method, Q, Normalised_Lit, Report) :-
 	rdf_find_literals(Query, Literals),
 	member(L, Literals),
 	(   Method = corrected
-	->  rdf(DrugUse, aers:drugname_corrected, literal(L)),
-	    rdf(DrugUse, aers:drugname, literal(Lit))
+	->  corrected_match(L, Lit, DrugUse)
 	;   rdf(DrugUse, aers:drugname, literal(L)),
 	    Lit = L
 	),
 	drug_normalise(Lit, Normalised_Lit),
 	rdf(Report, aers:drug, DrugUse).
 
+corrected_match(Name, Lit, DrugUse) :-
+	rdf(DrugUse, aers:drugname_corrected, literal(Name)),
+	rdf(DrugUse, aers:drugname, literal(Lit)).
+corrected_match(Name, Lit, DrugUse) :-
+	drug_brand_name(drugbank, Name, Brand),
+	rdf(DrugUse, aers:drugname_corrected, literal(Brand)),
+	rdf(DrugUse, aers:drugname, literal(Lit)).
+
 drug_list_mentions([], _, []).
 drug_list_mentions([Q|Qs], Method, [Q-Mentions|Rest]) :-
 	drug_mentions(Q, Method, Mentions),