+ lists:map(\r
+ fun({Conv, Plus}) ->
+ {conversation, [],
+ [{autresPages, [], [atom_to_list(Plus)]} |
+ lists:map(
+ fun({Mess, Repond_a}) -> \r
+ Est_proprietaire = User =/= inconnu andalso User#user.id =:= Mess#minichat.auteur_id,\r
+ A_repondu_a_message = User =/= inconnu andalso euphorik_minichat:a_repondu_a_message(User#user.id, Mess#minichat.id),\r
+ Est_une_reponse_a_user = User =/= inconnu andalso euphorik_minichat:est_une_reponse_a_user(User#user.id, Mess#minichat.id),
+ User_mess =
+ if Mess#minichat.auteur_id =:= 0 ->
+ inconnu;
+ true ->
+ {ok, U2} = euphorik_minichat:user_by_id(Mess#minichat.auteur_id),
+ U2
+ end,\r
+ {message, [{id, erlang:integer_to_list(Mess#minichat.id, 36)}],\r
+ [\r
+ {date, [], [format_date(Mess#minichat.date)]},
+ {systeme, [], [atom_to_list(Mess#minichat.auteur_id =:= 0)]},\r
+ {proprietaire, [], [atom_to_list(Est_proprietaire)]},\r
+ {repondu, [], [atom_to_list(A_repondu_a_message)]},\r
+ {reponse, [], [atom_to_list(Est_une_reponse_a_user)]},\r
+ {pseudo, [], [Mess#minichat.pseudo]},
+ {login, [], [if User_mess =:= inconnu -> Mess#minichat.pseudo; true -> User_mess#user.login end]},\r
+ {contenu, [], [Mess#minichat.contenu]},\r
+ {repondA, [], xml_repond_a(Repond_a)}\r
+ ]\r
+ }
+ end,
+ Conv
+ )
+ ]
+ }\r
+ end,
+ euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, Page)\r
+ )