put_troll/2,
mod_troll/2,
del_troll/1,
+ troll_by_id/1,
% versions :
update_version/1,
user_by_id(ID) ->
resultat_transaction(mnesia:transaction(
fun() ->
- Users = qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.id =:= ID])),
- case Users of
+ case qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.id =:= ID])) of
[User] -> {ok, User};
_ -> erreur
end
trolls() ->
resultat_transaction(mnesia:transaction(
fun() ->
- qlc:e(qlc:q([T || T <- mnesia:table(troll)]))
+ qlc:e(qlc:q([T || T <- qlc:keysort(2, mnesia:table(troll))]))
end
)).
_ ->
case resultat_transaction(mnesia:transaction(
fun() ->
- qlc:e(qlc:q([T || T <- mnesia:table(troll), T#troll.id > Last_id, T#troll.date_post =:= undefined]))
+ qlc:e(qlc:q([T || T <- qlc:keysort(2, mnesia:table(troll)), T#troll.id > Last_id, T#troll.date_post =:= undefined]))
end
)) of
[] -> % pas de trolls
end
).
+
+troll_by_id(Troll_id) ->
+ resultat_transaction(mnesia:transaction(
+ fun() ->
+ case qlc:e(qlc:q([T || T <- mnesia:table(troll), T#troll.id =:= Troll_id])) of
+ [T] -> {ok, T};
+ _ ->
+ erreur
+ end
+ end
+ )).
+
update_version(1) ->
mnesia:transform_table(