virgil/commit

Do not normalize in mentions API

diff --git a/api/drugs.pl b/api/drugs.pl
index 616c1b8..a1fe70e 100644
--- a/api/drugs.pl
+++ b/api/drugs.pl
@@ -33,10 +33,7 @@ http_drug_mentions(Request) :-
 
 drug_mentions(Q, Method, Mentions) :-
 	findall(Count-M,
-		(   setof(R, ( drug_mention(Method, Q, Lit, Use),
-			       rdf(R, aers:drug, Use),
-			       drug_normalise(Lit, M)
-			     ),
+		(   setof(R, drug_mention(Method, Q, M, _, R),
 			  Rs),
 		    length(Rs, Count)
 		),
@@ -44,6 +41,10 @@ drug_mentions(Q, Method, Mentions) :-
 	keysort(Mentions0, Mentions1),
 	reverse(Mentions1, Mentions).
 
+drug_mention(Method, Q, Lit, DrugUse, Report) :-
+	drug_mention(Method, Q, Lit, DrugUse),
+	rdf(Report, aers:drug, DrugUse).
+
 drug_mention(exact, Q,  Lit, DrugUse) :-
 	!,
 	rdf(DrugUse, aers:drugname, literal(exact(Q), Lit)).