% Renvoie les messages appropriés.
refreshMessage(Action) ->\r
simple_xml_to_string(
- case {
- xmerl_xpath:string("nombreMessage", Action), % le nombre de message qu'affiche le client
- xmerl_xpath:string("page", Action) % la page désiré, la première (les derniers messages) étant la 1
- } of
- {
- [#xmlElement{content = [#xmlText{value = Nb_message_str}]}],
- [#xmlElement{content = [#xmlText{value = Page_str}]}]
- } ->
+ case xmerl_xpath:string("nombreMessage", Action) of % le nombre de message qu'affiche le client
+ [#xmlElement{content = [#xmlText{value = Nb_message_str}]}] ->
Nb_message = list_to_integer(Nb_message_str),
- Page = list_to_integer(Page_str),
Dernier_id = case xmerl_xpath:string("dernierMessageId", Action) of % l'id du dernier message que connait le client
[#xmlElement{content = [#xmlText{value = D}]}] -> erlang:list_to_integer(D, 36);
_ -> 0
]
}\r
end,
- euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, Page)\r
+ euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, User#user.page_principale)\r
)
}];
_ ->