X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=19932f204edbab0da8f46855afde47cc31af8b3b;hp=8fad0e9e585dded3b355462f7d93a17a0d8650fb;hb=0531ee46484ef22f402191cc4dc84ca07f155fe4;hpb=14cdea5b82fb860e309a2fa36fc06bfa0d7a8c29 diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl index 8fad0e9..19932f2 100755 --- a/modules/erl/euphorik_protocole.erl +++ b/modules/erl/euphorik_protocole.erl @@ -138,16 +138,9 @@ profile(Action) -> % Renvoie les messages appropriés. refreshMessage(Action) -> 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 @@ -207,7 +200,7 @@ refreshMessage(Action) -> ] } end, - euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, Page) + euphorik_minichat_conversation:conversations(User#user.conversations, Nb_message, Dernier_id, User#user.page_principale) ) }]; _ ->