ADD minicommentaire

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

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 3f9d7a1..d8bfa89 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -118,6 +118,7 @@ profile(
       {nick, Pseudo},\r
       {email, Email},\r
       {css, Css},\r
+      {chat_order, Chat_order_str},\r
       {nick_format, Nick_format_str},\r
       {view_times, View_times},\r
       {view_tooltips, View_tooltips},\r
@@ -127,7 +128,7 @@ profile(
 ) ->\r
    % décomposition de la strucure JSON\r
    Conversations = lists:foldr(\r
-      fun({struc, [{root, Racine}, {minimized, Reduit}]}, A) ->\r
+      fun({struct, [{root, Racine}, {minimized, Reduit}]}, A) ->\r
          % virage des messages qui n'existent pas\r
          Message_exite = euphorik_bd:message_existe(Racine),\r
          if Message_exite ->\r
@@ -147,6 +148,7 @@ profile(
          Pseudo,\r
          Email,\r
          Css,\r
+         list_to_atom(Chat_order_str),\r
          list_to_atom(Nick_format_str),\r
          View_times,\r
          View_tooltips,\r
@@ -269,7 +271,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id
                         fun({Racine, {Conv, Plus}}) ->\r
                            {struct, [\r
                               {last_page, not Plus},\r
-                              {first, \r
+                              {first, % le premier message de la conversation\r
                                  if Racine =:= undefined orelse Conv =:= [] ->\r
                                        null;\r
                                     true ->\r
@@ -281,7 +283,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id
                                              null\r
                                        end\r
                                  end\r
-                              }, % le premier message de la conversation, peut correspondre\r
+                              },\r
                               {messages, {array,\r
                                  lists:map(\r
                                     fun({Mess, Repond_a}) ->\r
@@ -672,6 +674,7 @@ json_reponse_login_ok(User) ->
          {login, User#user.login},\r
          {email, User#user.email},\r
          {css, User#user.css},\r
+         {chat_order, atom_to_list(User#user.chat_order)},\r
          {nick_format, atom_to_list(User#user.nick_format)},\r
          {view_times, User#user.view_times},\r
          {view_tooltips, User#user.view_tooltips},\r