MOD fin du système de page et cleanage du code

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

diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl
index 53fe1e3..4268fef 100755 (executable)
--- 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;\r
                   _ ->               \r
                      User_modifie = User#user{
-                        % TODO : pourquoi ne pas tester avec la valeur "undefined" plutôt qu'avec "is_list" ?\r
+                        % 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)\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,
-                        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\r
                      },\r
                      mnesia:write(User_modifie),\r