projects
/
euphorik.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5f6ea43
)
MOD insignifiant
author
Greg Burri
<greg.burri@gmail.com>
Sat, 24 May 2008 15:24:19 +0000
(15:24 +0000)
committer
Greg Burri
<greg.burri@gmail.com>
Sat, 24 May 2008 15:24:19 +0000
(15:24 +0000)
modules/erl/euphorik_minichat_conversation.erl
patch
|
blob
|
history
diff --git
a/modules/erl/euphorik_minichat_conversation.erl
b/modules/erl/euphorik_minichat_conversation.erl
index
013c7af
..
3c88caa
100755
(executable)
--- a/
modules/erl/euphorik_minichat_conversation.erl
+++ b/
modules/erl/euphorik_minichat_conversation.erl
@@
-177,16
+177,16
@@
conversation(R, N, D, P) ->
% Renvoie un tuple {C, X} où C est la conversation complète et X les messages répondant à des mess qui ne font pas partie de la conversation
% Attention : les messages de C et de X sont ordrés du plus grand Id au plus petit.
% @spec conversation([integer()], [integer()], [integer()]) -> {}
% Renvoie un tuple {C, X} où C est la conversation complète et X les messages répondant à des mess qui ne font pas partie de la conversation
% Attention : les messages de C et de X sont ordrés du plus grand Id au plus petit.
% @spec conversation([integer()], [integer()], [integer()]) -> {}
-conversation(
Messages
, [M | Reste], X) ->
- Est_deja_traite = any(fun(E) -> E =:= M end,
Messages
),
+conversation(
Conv
, [M | Reste], X) ->
+ Est_deja_traite = any(fun(E) -> E =:= M end,
Conv
),
if Est_deja_traite ->
if Est_deja_traite ->
- conversation(
Messages
, Reste, X);
+ conversation(
Conv
, Reste, X);
true ->
Enfants = enfants(M),
Parents = parents(M),
% un message est dit externe si un de ses parent ne fait pas partie de la conversation ou si un de ses parents fait partie de X
true ->
Enfants = enfants(M),
Parents = parents(M),
% un message est dit externe si un de ses parent ne fait pas partie de la conversation ou si un de ses parents fait partie de X
- Est_message_externe = Parents --
Messages
=/= [] orelse intersection(Parents, X) =/= [],
- conversation([M |
Messages
], lists:merge(Reste, Enfants), if Est_message_externe -> [M | X]; true -> X end)
+ Est_message_externe = Parents --
Conv
=/= [] orelse intersection(Parents, X) =/= [],
+ conversation([M |
Conv
], lists:merge(Reste, Enfants), if Est_message_externe -> [M | X]; true -> X end)
end;
conversation(Messages, [], X) ->
{Messages, X}.
end;
conversation(Messages, [], X) ->
{Messages, X}.