projects
/
euphorik.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ADD avancement sur les trolls, partie d'administration presque terminée
[euphorik.git]
/
modules
/
erl
/
euphorik_bd.erl
diff --git
a/modules/erl/euphorik_bd.erl
b/modules/erl/euphorik_bd.erl
index
8875973
..
28267f0
100755
(executable)
--- a/
modules/erl/euphorik_bd.erl
+++ b/
modules/erl/euphorik_bd.erl
@@
-55,6
+55,7
@@
put_troll/2,
mod_troll/2,
del_troll/1,
put_troll/2,
mod_troll/2,
del_troll/1,
+ troll_by_id/1,
% versions :
update_version/1,
% versions :
update_version/1,
@@
-259,8
+260,7
@@
user_by_cookie(Cookie) ->
user_by_id(ID) ->
resultat_transaction(mnesia:transaction(
fun() ->
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
[User] -> {ok, User};
_ -> erreur
end
@@
-697,6
+697,18
@@
del_troll(Troll_id) ->
end
).
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(
update_version(1) ->
mnesia:transform_table(