FIX #81 (pas testé)

[euphorik.git] / modules / erl / euphorik_bd.erl

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