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 1fb3cc1..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
@@ -308,7 +308,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id
                                        {Racine_id, _, _} = Racine,\r
                                        case euphorik_bd:message_by_id(Racine_id) of\r
                                           {ok, Mess} ->\r
-                                             json_message(Mess, euphorik_bd:parents(Racine), User);\r
+                                             json_message(Mess, euphorik_bd:parents_id(Racine_id), User);\r
                                           _ ->\r
                                              null\r
                                        end\r
@@ -744,7 +744,7 @@ json_message(Mess, Repond_a, User) ->
    {struct, [\r
       {id, Mess#minichat.id},\r
       {user_id, User_mess#user.id},\r
-      {date, format_date(Mess#minichat.date)},\r
+      {date, case Mess#minichat.date of undefined -> "?"; _ -> format_date(Mess#minichat.date) end},\r
       {system, Mess#minichat.auteur_id =:= 0},\r
       {owner, Est_proprietaire},\r
       {answered, A_repondu_a_message},\r
@@ -754,7 +754,7 @@ json_message(Mess, Repond_a, User) ->
       {content, Mess#minichat.contenu},\r
       {root, Mess#minichat.racine_id},\r
       {answer_to, {array, lists:map(\r
-         fun(Id_mess) ->                   \r
+         fun(Id_mess) ->  \r
             {ok, M} = euphorik_bd:message_by_id(Id_mess),\r
             {ok, User_reponse} = euphorik_bd:user_by_mess(M#minichat.id),\r
             {struct, [{id, M#minichat.id}, {nick, M#minichat.pseudo}, {login, User_reponse#user.login}]}\r