X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=dff71dbf1fb68aef172c68509d213ac6b3c83c21;hp=196a26e25f94cdccce7f651e79c41c7fdfe0a8a0;hb=654e586482addf692991118ab9a4c5ead082457e;hpb=4dfbbcf0f54cb3eb70856ea404d9ecef6aec5e26

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 196a26e..dff71db 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -190,7 +190,11 @@ user_by_cookie(Cookie) ->
 user_by_id(ID) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
+%         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
+%            [User] -> {ok, User};
+%            _ -> erreur
+%         end
+         case mnesia:read({user,  ID}) of
             [User] -> {ok, User};
             _ -> erreur
          end
@@ -378,15 +382,14 @@ message_by_id(Id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
          case mnesia:read({minichat, Id}) of
-            [] -> erreur;
-            [M] ->
-               {ok, M#minichat{contenu = contenu_message(M)}}
+            [M] -> {ok, M#minichat{contenu = contenu_message(M)}};
+            _ -> erreur
          end
       end
    )).
    
    
-% Renvoie le contenu d'un message donnée, à utiliser à l'intérieur d'une transaction.
+% 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 ?
 contenu_message(E) ->
    case mnesia:read({troll, E#minichat.troll_id}) of
@@ -452,18 +455,20 @@ enfants(M_id) ->
    )).
    
    
-% Renvoie les parents d'un message M (les messages auquels répond M)
+% Renvoie les id des parents d'un message M (les messages auquels répond M)
 % ordrés du plus petit au plus grand..
+% On évite d'utiliser qlc pour des raisons de performance
 % @spec parents_id(integer()) -> [integer()]
-parents_id(M) ->
+parents_id(M_id) ->
    resultat_transaction(mnesia:transaction(fun() ->
-      e(
-         qlc:sort(
-            q([E#reponse_minichat.cible || E <- mnesia:table(reponse_minichat), E#reponse_minichat.repondant =:= M]),
-            [{order, ascending}]
-         ),
-         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
-      )
+      case mnesia:read({reponse_minichat, M_id}) of
+         Parents when is_list(Parents) ->
+            lists:sort(lists:map(
+               fun(#reponse_minichat{cible = Cible}) -> Cible end,
+               Parents
+            ));
+         _ -> []            
+      end
    end)).
    
    
@@ -483,33 +488,47 @@ enfants_id(M) ->
      
 
 % Est-ce que le message Id_mess est une réponse d'une message de Id_user ?
+% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance.
 est_une_reponse_a_user(Id_user, Id_mess) ->
-   case mnesia:transaction(
-            fun() ->
-               e(q([
-                  M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
-                  M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess
-               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])
-            end
-         ) of
-      {atomic, [_]} -> true;
-      _ -> false
-   end.
+   resultat_transaction(mnesia:transaction(
+      fun() ->
+         case mnesia:read({reponse_minichat, Id_mess}) of
+            [] -> false;
+            Cibles ->
+               lists:any(
+                  fun(#reponse_minichat{cible = Cible}) ->
+                     case mnesia:read({minichat, Cible}) of
+                        [#minichat{auteur_id = Id_user}] -> true;
+                        _ -> false
+                     end
+                  end,
+                  Cibles
+               )
+         end
+      end
+   )).
 
    
 % Est-ce que Id_user à répondu au message Id_mess
+% On evite d'utiliser qlc (ce qui était fait avant) pour des raisons de performance.
 a_repondu_a_message(Id_user, Id_mess) ->
-   case mnesia:transaction(
-            fun() ->
-               e(q([
-                  M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
-                  R#reponse_minichat.cible =:= Id_mess, R#reponse_minichat.repondant =:= M#minichat.id, M#minichat.auteur_id =:= Id_user
-               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])
-            end
-         ) of
-      {atomic, [_]} -> true;
-      _ -> false
-   end.
+   resultat_transaction(mnesia:transaction(
+      fun() ->
+         case mnesia:match_object({reponse_minichat, '_', Id_mess}) of
+            [] -> false;
+            Reponses ->
+               lists:any(
+                  fun(#reponse_minichat{repondant = Reponse}) ->
+                     case mnesia:read({minichat, Reponse}) of
+                        [#minichat{auteur_id = Id_user}] -> true;
+                        _ -> false
+                     end
+                  end,
+                  Reponses
+               )
+         end
+      end
+   )).
    
    
 % Est-ce que Id_user possède Id_mess ?