case user_by_cookie(Cookie) of
{ok, User} ->
case user_by_login(Login) of
- {ok, U} when User#user.login =/= [], U#user.id =/= User#user.id ->
+ {ok, U} when Login =/= [], U#user.id =/= User#user.id ->
login_deja_pris;
- _ ->
+ _ ->
User_modifie = User#user{
% TODO : pourquoi ne pas tester avec la valeur "undefined" plutôt qu'avec "is_list" ?
% TODO : validation plus strict des données (pas de page négative dans les conv par exemple)
user_by_cookie(Cookie) ->
resultat_transaction(mnesia:transaction(
fun() ->
- Users = qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.cookie =:= Cookie])),
- case Users of
+ case qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.cookie =:= Cookie])) of
[User] -> {ok, User};
_ -> erreur
end
user_by_login_password(Login, Password) ->
resultat_transaction(mnesia:transaction(
fun() ->
- Users = qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.login =:= Login, E#user.password =:= Password])),
- case Users of
- [User] -> {ok, User};
+ case qlc:e(qlc:q([E || E <- mnesia:table(user), E#user.login =:= Login, E#user.password =:= Password])) of
+ [User | _] -> {ok, User};
_ -> erreur
end
end
resultat_transaction(mnesia:transaction(
fun() ->
case qlc:e(qlc:q([U || U <- mnesia:table(user), M <- mnesia:table(minichat), M#minichat.id =:= Id, M#minichat.auteur_id =:= U#user.id])) of
- [User] -> {ok, User};
+ [User | _] -> {ok, User};
_ -> erreur
end
end