X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=947a18ba25d609b51fa495ae3db7238d121c0a87;hp=1fb3cc161ea9fa358cef4920a6b1482f4c681406;hb=afc7c6e84fac05e989a208f72538e6a55daa758f;hpb=efae3fc07564a2a29b24f8c87b6d8f6658b873a0

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 1fb3cc1..947a18b 100755
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -103,7 +103,7 @@ loginUser(User, IP) ->
 generer_cookie() ->
    {A1, A2, A3} = now(),
    random:seed(A1, A2, A3),
-   erlang:integer_to_list(random:uniform(math:pow(10, 32)), 36).
+   erlang:integer_to_list(random:uniform(trunc(math:pow(10, 32))), 36).
 
 
 % Modification du profile.
@@ -308,7 +308,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id
                                        {Racine_id, _, _} = Racine,
                                        case euphorik_bd:message_by_id(Racine_id) of
                                           {ok, Mess} ->
-                                             json_message(Mess, euphorik_bd:parents(Racine), User);
+                                             json_message(Mess, euphorik_bd:parents_id(Racine_id), User);
                                           _ ->
                                              null
                                        end
@@ -744,7 +744,7 @@ json_message(Mess, Repond_a, User) ->
    {struct, [
       {id, Mess#minichat.id},
       {user_id, User_mess#user.id},
-      {date, format_date(Mess#minichat.date)},
+      {date, case Mess#minichat.date of undefined -> "?"; _ -> format_date(Mess#minichat.date) end},
       {system, Mess#minichat.auteur_id =:= 0},
       {owner, Est_proprietaire},
       {answered, A_repondu_a_message},
@@ -754,7 +754,7 @@ json_message(Mess, Repond_a, User) ->
       {content, Mess#minichat.contenu},
       {root, Mess#minichat.racine_id},
       {answer_to, {array, lists:map(
-         fun(Id_mess) ->                   
+         fun(Id_mess) ->  
             {ok, M} = euphorik_bd:message_by_id(Id_mess),
             {ok, User_reponse} = euphorik_bd:user_by_mess(M#minichat.id),
             {struct, [{id, M#minichat.id}, {nick, M#minichat.pseudo}, {login, User_reponse#user.login}]}