yaz/commit

trying to fix user relations

diff --git a/lib/user_prov.pl b/lib/user_prov.pl
index f663d70..1e66bbb 100644
--- a/lib/user_prov.pl
+++ b/lib/user_prov.pl
@@ -8,14 +8,19 @@
 
 
 create_user_graph(Video, UserRelations) :-
-	findall(r(User1,User2),
+	findall(r(User2,User1),
 		(   user_match(Video, _Tag-Users),
-		    member(_-User1,Users),
-		    member(_-User2,Users),
+		    enum_user_relations(Users, _-User1, _-User2),
 		    User1 \== User2
 		),
 		UserRelations).
 
+enum_user_relations([User1|Users], User1, User2) :-
+	member(User2, Users).
+enum_user_relations([_|Users], User1, User2) :-
+	enum_user_relations(Users, User1, User2).
+
+
 write_graph_csv :-
 	tell('user_graph.csv'),
 	findall(r(User1,User2),