virgil/commit

Add /aers/api/reaction/total to get total number of co-occurrences with a reaction

diff --git a/api/reactions.pl b/api/reactions.pl
index 917fe80..e121241 100644
--- a/api/reactions.pl
+++ b/api/reactions.pl
@@ -9,6 +9,7 @@
 
 :- http_handler(cliopatria(aers/api/reactions), http_reactions, []).
 :- http_handler(cliopatria(aers/api/reaction/count), http_reaction_count, []).
+:- http_handler(cliopatria(aers/api/reaction/total), http_total_reaction_count, []).
 
 %%	http_reactions(+Request)
 
@@ -56,3 +57,17 @@ http_reaction_count(Request) :-
 	reply_json(json([drugs=Drugs,
 			 reactions=Reactions,
 			 reaction_count=Count])).
+
+
+%%	http_total_reaction_count(+Request)
+
+http_total_reaction_count(Request) :-
+	http_parameters(Request,
+			[reaction(Reaction,
+				  [
+				  ])
+			]),
+	setof(R-Drug, report(Drug, Reaction, [], R), Rs),
+	length(Rs, Count),
+	reply_json(json([reaction=Reaction,
+			 reaction_count=Count])).