{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
) ->\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
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
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
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
{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