X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat_conversation.erl;h=2d546f17caf10470d4bdaaed42331b427f496349;hp=156eaac9d7bebed897845bbfae97011ac2576ee6;hb=4a6c575807a90370c0069b688026b10102e1ce10;hpb=6926aecb1cdd777ef8c52f63291341a540670a2c diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl index 156eaac..2d546f1 100755 --- a/modules/erl/euphorik_minichat_conversation.erl +++ b/modules/erl/euphorik_minichat_conversation.erl @@ -19,7 +19,6 @@ % Ce module permet la gestion des conversations du minichat d'euphorik. % Un message (enfant) peut répondre à des messages (ses parents). % Un message (parent) peut avoir plusieurs réponses (enfants) -% @author G.Burri % % Les conversation se compose d'une liste de tuple comprenant la conversation, du premier message de la conversation, % et d'un booleen indiquant s'il y a encore des messages @@ -34,6 +33,7 @@ -module(euphorik_minichat_conversation). +-author("Greg Burri "). -export([ conversations/4 ]). @@ -190,7 +190,7 @@ conversation(R, N, D, P) -> % @spec conversation([integer()], [integer()], [integer()]) -> {[int()], [int()]} conversation(Conv, [M | Reste], X) -> Est_deja_traite = any(fun(E) -> E =:= M end, Conv), - if Est_deja_traite -> + if Est_deja_traite -> conversation(Conv, Reste, X); true -> Enfants = euphorik_bd:enfants_id(M),