MOD avancement sur les conversations (on s'approche du but..)

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

diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl
index 0ef8ef5..53fe1e3 100755 (executable)
--- a/modules/erl/euphorik_minichat.erl
+++ b/modules/erl/euphorik_minichat.erl
@@ -27,7 +27,7 @@
    est_une_reponse_a_user/2,
    % set :\r
    update_pseudo_user/2,
-   set_profile/6,
+   set_profile/8,
    update_date_derniere_connexion/1,
    nouveau_user/2,
    nouveau_user/3,
@@ -195,7 +195,7 @@ update_pseudo_user(UserId, Pseudo) ->
    
    
 % Mise à par Cookie les autres peuvent être undefined ce qui veut dire qu'ils ne seront pas modifié.\r
-set_profile(Cookie, Login, Password, Pseudo, Email, Css) ->
+set_profile(Cookie, Login, Password, Pseudo, Email, Css, Page_principale, Conversations) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
          case user_by_cookie(Cookie) of
@@ -204,12 +204,15 @@ set_profile(Cookie, Login, Password, Pseudo, Email, Css) ->
                   {ok, U} when U#user.id =/= User#user.id ->\r
                      login_deja_pris;\r
                   _ ->               \r
-                     User_modifie = User#user{\r
+                     User_modifie = User#user{
+                        % TODO : pourquoi ne pas tester avec la valeur "undefined" plutôt qu'avec "is_list" ?\r
                         login = if is_list(Login) -> Login; true -> User#user.login end,\r
                         password = if is_list(Password) -> Password; true -> User#user.password end,\r
                         pseudo = if is_list(Pseudo) -> Pseudo; true -> User#user.pseudo end,\r
                         email = if is_list(Email) -> Email; true -> User#user.email end,\r
-                        css = if is_list(Css) -> Css; true -> User#user.css end\r
+                        css = if is_list(Css) -> Css; true -> User#user.css end,
+                        page_principale = if is_list(Page_principale) -> Page_principale; true -> User#user.page_principale end,
+                        conversations = if is_list(Conversations) -> Conversations; true -> User#user.conversations end\r
                      },\r
                      mnesia:write(User_modifie),\r
                      ok\r