+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