-conversation_principale2(C, Messages, N, S) ->\r
- case qlc:next_answers(C, 1) of\r
- [] -> [];\r
- [M] -> % traitement message par message (pas des plus performant :/)\r
- Doit_etre_saute = any(fun(E) -> E == M end, Messages),\r
- if Doit_etre_saute -> \r
- conversation_principale2(C, Messages, N, S); % le message ne fait pas partie de la conversation\r
- S =:= 0 ->\r
- [M | conversation_principale2(C, Messages, N - 1, S)]; % ok : le message fait partie de la conversation\r
- true ->\r
- conversation_principale2(C, Messages, N, S - 1) % on n'a pas encore atteint le début de la page\r
- end\r
- end.\r
+conversation_principale2(Id, Messages, N, S) ->
+ % traitement message par message (pas des plus performant :/)
+ Id_prev = mnesia:prev(minichat, Id),\r
+ Doit_etre_saute = any(fun(E) -> E == Id end, Messages),\r
+ if Doit_etre_saute -> \r
+ conversation_principale2(Id_prev, Messages, N, S); % le message ne fait pas partie de la conversation\r
+ S =:= 0 ->\r
+ [Id | conversation_principale2(Id_prev, Messages, N - 1, S)]; % ok : le message fait partie de la conversation\r
+ true ->\r
+ conversation_principale2(Id_prev, Messages, N, S - 1) % on n'a pas encore atteint le début de la page\r
+ end.\r