X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat.erl;fp=modules%2Ferl%2Feuphorik_minichat.erl;h=92f5922cd862b2abc1d3f34d3ae29c06242e1f5e;hb=ffea71492c07cbf81430883c894b34e1c9408699;hp=4268fef68f421acc7fd1c66023195b383cb1d069;hpb=dbd5dc444ede3a82c3266684470b342f6a21f685;p=euphorik.git

diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl
index 4268fef..92f5922 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,
@@ -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