yaz/commit

simple routines to start with user provenance

diff --git a/config-available/yaz.pl b/config-available/yaz.pl
index bf78663..f125f93 100644
--- a/config-available/yaz.pl
+++ b/config-available/yaz.pl
@@ -16,6 +16,9 @@
 :- use_module(api(video_frames)).
 :- use_module(api(reconcile)).
 
+% libs
+:- use_module(library(user_prov)).
+
 % yaz applications
 :- use_module(applications(yaz_home)).
 :- use_module(applications(yaz_admin)).
diff --git a/lib/user_prov.pl b/lib/user_prov.pl
new file mode 100644
index 0000000..3b60192
--- /dev/null
+++ b/lib/user_prov.pl
@@ -0,0 +1,29 @@
+:- module(user_prov,
+	  []).
+
+
+list_user_tags :-
+	user_tags(PlayerTags),
+	format_user_tags(PlayerTags).
+
+user_tags(PlayerTags2) :-
+	findall(Player-tag(Tag,Score),
+		(rdf(TagEntry, pprime:creator, Player),
+		 rdf(TagEntry,rdf:value,literal(Tag)),
+		 rdf(TagEntry,pprime:score,literal(Score))
+		),
+		PlayerTags),
+	keysort(PlayerTags,PlayerTags1),
+	group_pairs_by_key(PlayerTags1,PlayerTags2).
+
+format_user_tags(PlayerTags) :-
+	forall(member(P-Tags,PlayerTags),
+	       (   format('~w,',[P]),
+		   format_tags(Tags))).
+
+format_tags([]).
+format_tags([Tag]) :-
+	format('~w~n~n',Tag).
+format_tags([Tag|Tags]) :-
+	format('~w,',[Tag]),
+	format_tags(Tags).