ADD possibilité d'inverser le sens du chat

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

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 3f9d7a1..550a4ec 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
@@ -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