json_reponse_login_ok(User);
loginUser(_, _) ->
% ajoute un délais d'attente
- timer:sleep(1000),
- erreur("Erreur login").
+ timer:sleep(?TEMPS_ATTENTE_ERREUR_LOGIN),
+ erreur("Couple login/pass introuvable").
\r
% Renvoie un string() représentant un cookie en base 36. Il y a 10^32 possibillités.\r
{email, Email},
{css, Css},
{nick_format, Nick_format_str},
+ {view_times, View_times},
+ {view_tooltips, View_tooltips},
{main_page, Main_page},
{conversations, {array, Conversations_json}}
]
[],
Conversations_json
),
- case euphorik_bd:set_profile(Cookie, Login, Password, Pseudo, Email, Css, list_to_atom(Nick_format_str), Main_page, Conversations) of
+ % TODO : pas très beau, mieux vaut construire un #user
+ case euphorik_bd:set_profile(
+ Cookie,
+ Login,
+ Password,
+ Pseudo,
+ Email,
+ Css,
+ list_to_atom(Nick_format_str),
+ View_times,
+ View_tooltips,
+ Main_page,
+ Conversations) of
ok ->
json_reponse_ok();
login_deja_pris ->
{email, User#user.email},
{css, User#user.css},
{nick_format, atom_to_list(User#user.nick_format)},
+ {view_times, User#user.view_times},
+ {view_tooltips, User#user.view_tooltips},
{main_page, User#user.page_principale},
{conversations,
{array,