X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat.erl;h=4268fef68f421acc7fd1c66023195b383cb1d069;hp=53fe1e3f1ce4cf8a4de58bc6f971d3efbb942cef;hb=42445687d95289c3c3f70e1e8d76278107a8b125;hpb=2a5789043322637604619c0b400499aa8c67fcaf

diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl
index 53fe1e3..4268fef 100755
--- a/modules/erl/euphorik_minichat.erl
+++ b/modules/erl/euphorik_minichat.erl
@@ -205,13 +205,14 @@ set_profile(Cookie, Login, Password, Pseudo, Email, Css, Page_principale, Conver
                      login_deja_pris;
                   _ ->               
                      User_modifie = User#user{
-                        % TODO : pourquoi ne pas tester avec la valeur "undefined" plutôt qu'avec "is_list" ?
+                        % TODO : pourquoi ne pas tester avec la valeur "undefined" plutôt qu'avec "is_list" ?
+                        % TODO : validation plus strict des données (pas de page négative dans les conv par exemple)
                         login = if is_list(Login) -> Login; true -> User#user.login end,
                         password = if is_list(Password) -> Password; true -> User#user.password end,
                         pseudo = if is_list(Pseudo) -> Pseudo; true -> User#user.pseudo end,
                         email = if is_list(Email) -> Email; true -> User#user.email end,
                         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,
+                        page_principale = if is_integer(Page_principale), Page_principale > 0 -> Page_principale; true -> User#user.page_principale end,
                         conversations = if is_list(Conversations) -> Conversations; true -> User#user.conversations end
                      },
                      mnesia:write(User_modifie),