MOD gestion des pages (pas fini)

[euphorik.git] / modules / erl / euphorik_protocole.erl

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 8fad0e9..19932f2 100755 (executable)
--- 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) ->\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
@@ -207,7 +200,7 @@ refreshMessage(Action) ->
                         ]
                      }\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
                )
             }];
          _ ->