X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat_conversation.erl;h=6f2f2beb6c4571ab276ed3506bd6a27aef275fd4;hb=90a93ff3caa0639b4e0f96d0c485933ae80ede2f;hp=7f6082c1ea6ba1c2e2eff2428706e62feaac8673;hpb=1bfb8e83e2d89d9083d9f927302beaf8931b9508;p=euphorik.git diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl index 7f6082c..6f2f2be 100755 --- a/modules/erl/euphorik_minichat_conversation.erl +++ b/modules/erl/euphorik_minichat_conversation.erl @@ -35,7 +35,7 @@ -include_lib("stdlib/include/qlc.hrl"). -import(lists, [reverse/1, any/2, map/2, sublist/3, filter/2]). -import(euphorik_bd, [resultat_transaction/1]). --import(qlc, [e/2, q/1, keysort/3]). +-import(qlc, [e/2, q/1]). -import(mnesia, [table/1, transaction/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]; _ ->