FIX random:uniform accept only integer (float previously).

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

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index a61d0c8..947a18b 100755 (executable)
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -103,7 +103,7 @@ loginUser(User, IP) ->
 generer_cookie() ->\r
    {A1, A2, A3} = now(),\r
    random:seed(A1, A2, A3),\r
-   erlang:integer_to_list(random:uniform(math:pow(10, 32)), 36).\r
+   erlang:integer_to_list(random:uniform(trunc(math:pow(10, 32))), 36).\r
 \r
 \r
 % Modification du profile.\r