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

diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl
index 4268fef..2e2f406 100755
--- a/modules/erl/euphorik_minichat.erl
+++ b/modules/erl/euphorik_minichat.erl
@@ -13,6 +13,7 @@
    messages/3,
    message_by_id/1,
    messages_by_ids/1,
+   message_existe/1,
    reponses/0,
    repond_a/1,
    nb_page/1,
@@ -222,7 +223,7 @@ set_profile(Cookie, Login, Password, Pseudo, Email, Css, Page_principale, Conver
          end
       end
    )).
-   
+
 
 % Met à jour la date de la dernière connexion d'un utilisateur à maintenant
 update_date_derniere_connexion(UserId) ->
@@ -364,7 +365,15 @@ messages_by_ids(Ids) ->
          %io:format("~s~n", [qlc:info(Query)]),
          qlc:e(Query)
       end
-   )).
+   )).
+   
+
+% Est-ce qu'un message existe ? Renvoie un boolean.
+% TODO : ya pas plus simple ?
+message_existe(Id) ->
+   resultat_transaction(mnesia:transaction(fun() ->
+      length(qlc:e(qlc:q([E#minichat.id || E <- mnesia:table(minichat), E#minichat.id =:= Id]))) =:= 1
+   end)).
   
    
 % Renvoie le nombre de page total en fonction du nombre de message par page N