- case mnesia:transaction(\r
- fun() ->\r
- e(q([\r
- M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),\r
- M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess\r
- ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])\r
- end\r
- ) of\r
- {atomic, [_]} -> true;\r
- _ -> false\r
- end.\r
+ resultat_transaction(mnesia:transaction(\r
+ fun() ->\r
+ case mnesia:read({reponse_minichat, Id_mess}) of\r
+ [] -> false;\r
+ Cibles ->\r
+ lists:any(\r
+ fun(#reponse_minichat{cible = Cible}) ->\r
+ case mnesia:read({minichat, Cible}) of\r
+ [#minichat{auteur_id = Id_user}] -> true;\r
+ _ -> false\r
+ end\r
+ end,\r
+ Cibles\r
+ )\r
+ end\r
+ end\r
+ )).\r