amalgame/commit

ADDED: filter out private stats before sending out json

authorJacco van Ossenbruggen
Sun Sep 28 00:04:59 2014 +0200
committerJacco van Ossenbruggen
Sun Sep 28 00:04:59 2014 +0200
commit9a803ca481f18c46094a8dd31fb75c1198206364
tree9b3d96f129f004bfa3c243bab0a6b9f580444d8b
parentc71989fc6b98e9421a7ed9f9913447d3864c1523
Diff style: patch stat
diff --git a/lib/amalgame/json_util.pl b/lib/amalgame/json_util.pl
index 7b182d9..3f73ece 100644
--- a/lib/amalgame/json_util.pl
+++ b/lib/amalgame/json_util.pl
@@ -116,8 +116,10 @@ node_prop(S, R, label, Label) :-
 	;   rdf_display_label(R, Lit)
 	),
 	literal_text(Lit, Label).
-node_prop(S, R, stats, Stats) :-
-	node_stats(S,R,Stats, [compute(false)]).
+node_prop(S, R, stats, Censored) :-
+	node_stats(S,R,Stats, [compute(false)]),
+	select_dict(_{'@private':_}, Stats, Censored).
+
 node_prop(_S, R, type, Type) :-
 	(   rdfs_individual_of(R, amalgame:'AlignmentStrategy')
 	->  Type = strategy