\r
-module(euphorik_bd).\r
-export([ \r
+ % texte :\r
+ get_texte/1,\r
+ get_texte/2,\r
+ \r
% users :\r
nouveau_user/2,\r
nouveau_user/4,\r
-include_lib("stdlib/include/qlc.hrl").\r
\r
\r
+get_texte(Id) ->\r
+ get_texte(Id, fr).\r
+\r
+\r
+% TODO : généraliser la langue\r
+get_texte(Id, _Lang = fr) ->\r
+ resultat_transaction(mnesia:transaction(fun() ->\r
+ case mnesia:read({texte, Id}) of\r
+ [#texte{fr = Texte}] -> Texte;\r
+ _ -> "Message " ++ integer_to_list(Id) ++ " unknown"\r
+ end\r
+ end)).\r
+\r
+\r
% Ajoute un nouveau user et le renvoie\r
nouveau_user(Cookie, Profile) ->\r
F = fun() ->\r