X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat_conversation.erl;h=e46ca913d0dbe9ced0506e57b243ad0dedbf9672;hp=60f92e47fd683119e667a2c78acaaafaa9026986;hb=ff7d9f985ef60d59b652a8950dbbee204b276c87;hpb=81f4aa92e9076d2ca03f5c10ff88439178730ca8 diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl index 60f92e4..e46ca91 100755 --- a/modules/erl/euphorik_minichat_conversation.erl +++ b/modules/erl/euphorik_minichat_conversation.erl @@ -44,7 +44,7 @@ % Message est le message de type #minichat et Parents une liste d'Id. % Plus est un bool. Si Plus vaut true alors il y a encore des messages. % Si il n'y a pas de nouveaux message alors vide est renvoyé. -% Chaque racine est un tuple {N, P, D} +% Chaque racine est un tuple {R, P, D} % N : le nombre de message % D : le dernier message connu, 0 si aucun % P : la page souhaité, la premier est la 1 @@ -84,7 +84,7 @@ mise_en_forme_conversation(Messages) -> fun() -> lists:foldr( fun(Id, Acc) -> - case euphorik_bd:message_by_id_sans_transaction(Id) of + case euphorik_bd:message_by_id(Id) of {ok, Message} -> [{Message, parents(Id)} | Acc]; _ ->