- e(\r
- qlc:sort(\r
- q([E#reponse_minichat.cible || E <- mnesia:table(reponse_minichat), E#reponse_minichat.repondant =:= M]),\r
- [{order, ascending}]\r
- ),\r
- [{tmpdir, ?KEY_SORT_TEMP_DIR}]\r
- )\r
+ case mnesia:read({reponse_minichat, M_id}) of\r
+ Parents when is_list(Parents) ->\r
+ lists:sort(lists:map(\r
+ fun(#reponse_minichat{cible = Cible}) -> Cible end,\r
+ Parents\r
+ ));\r
+ _ -> [] \r
+ end\r