X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=cfd0bfd673dc57d4df8f8b134fd8627ac1d37ccd;hp=55aa7bc4dfa294432e135fd23a7d34bdbeb31257;hb=efae3fc07564a2a29b24f8c87b6d8f6658b873a0;hpb=e1bca2f5335f66a1a869bbc57e3346514e628558

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 55aa7bc..cfd0bfd 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -46,7 +46,6 @@
    % messages :
    nouveau_message/3,
    nouveau_message_sys/1,
-   nouveau_message_sys/2,
    messages/1,
    messages/2,
    messages/3,
@@ -78,7 +77,6 @@
    troll_by_id/1,
    current_troll/0,
    elire_troll/0,
-   message_id_associe/1,
    
    % utiles :
    resultat_transaction/1
@@ -352,16 +350,11 @@ inserer_reponses(_, []) ->
 % Permet de créer un message système.
 % Renvoie l'id du message système
 nouveau_message_sys(Mess) ->
-   nouveau_message_sys(Mess, undefined).
-   
-
-% Création d'un message système lié à un troll.
-nouveau_message_sys(Mess, Troll_id) ->
    {ok, #user{profile = Profile}} = user_by_id(0),
    resultat_transaction(mnesia:transaction(
       fun() ->
          Id = nouvel_id(minichat),
-         mnesia:write(#minichat{id = Id, auteur_id = 0, date = now(), pseudo = Profile#profile.pseudo, contenu = Mess, troll_id = Troll_id, racine_id = Id}),
+         mnesia:write(#minichat{id = Id, auteur_id = 0, date = now(), pseudo = Profile#profile.pseudo, contenu = Mess, racine_id = Id}),
          Id
       end
    )).
@@ -412,9 +405,9 @@ message_by_id(Id) ->
    
    
 % Renvoie le contenu d'un message donnée en fonction du troll associé, à utiliser à l'intérieur d'une transaction.
-% TODO : Cette fonction pourrait être remplacé par un "outer-join", est-ce possible avec qlc ?
+% TODO : Cette fonction pourrait être remplacée par un "outer-join", est-ce possible avec qlc ?
 contenu_message(E) ->
-   case mnesia:read({troll, E#minichat.troll_id}) of
+   case mnesia:index_read(troll, E#minichat.id, #troll.id_minichat) of
       [] -> E#minichat.contenu;
       [T] -> E#minichat.contenu ++ T#troll.content
    end.
@@ -796,26 +789,13 @@ elire_troll() ->
                plus_de_trolls;
             Trolls ->
                Troll = lists:nth(random:uniform(length(Trolls)), Trolls),
-               Troll2 = Troll#troll{date_post = now()},
-               mnesia:write(Troll2),
-               nouveau_message_sys("Troll de la semaine : ", Troll2#troll.id)
+               Id_message = nouveau_message_sys("Troll de la semaine : "),
+               Troll2 = Troll#troll{date_post = now(), id_minichat = Id_message},
+               mnesia:write(Troll2)
          end
       end
    ).
    
-
-% Renvoie l'id du message associé au troll dont l'id est donnée.
-% Renvoie undefined si il n'y en a pas.
-message_id_associe(Troll_id) ->
-   resultat_transaction(mnesia:transaction(
-      fun() ->
-         case e(q([M#minichat.id || M <- mnesia:table(minichat), M#minichat.troll_id =:= Troll_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
-            [Id] -> Id;
-            _ -> undefined
-         end
-      end
-   )).
-
    
 % Renvoie le résultat d'une transaction (en décomposant le tuple fournit)
 resultat_transaction({_, T}) ->