X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat_conversation.erl;h=06fad7fd2efd5bfee2f3858b77b7c9b30f4139bd;hp=2db3586bcd58ccbee86216349592fb7278edfb4c;hb=fdbd960f3fda4a5b1e71dc410ad162c78390f409;hpb=5b5b26154e2dcbc5dc0b16f833edb728bd1c8a2d

diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl
index 2db3586..06fad7f 100755
--- a/modules/erl/euphorik_minichat_conversation.erl
+++ b/modules/erl/euphorik_minichat_conversation.erl
@@ -30,11 +30,12 @@
 -export([
    conversations/4
 ]).
--include("euphorik_bd.hrl").
+-include("../include/euphorik_bd.hrl").
+-include("../include/euphorik_defines.hrl").
 -include_lib("stdlib/include/qlc.hrl").
 -import(lists, [reverse/1, any/2, map/2, sublist/3, filter/2]).
 -import(euphorik_bd, [resultat_transaction/1]).
--import(qlc, [e/1, q/1, keysort/3]).
+-import(qlc, [e/2, q/1, keysort/3]).
 -import(mnesia, [table/1, transaction/1]).
   
    
@@ -100,7 +101,7 @@ mise_en_forme_conversation(Messages) ->
 conversations_detailees(Racines, N, D, P) ->   
    Conversations = map(fun({Racine, P_conv, Dernier}) -> conversation(Racine, N, Dernier, P_conv) end, Racines),
    Conversation_principale = resultat_transaction(transaction(fun() ->
-      Curseur = qlc:cursor(q([E#minichat.id || E <- qlc:sort(table(minichat), [{order, descending}])])),
+      Curseur = qlc:cursor(q([E#minichat.id || E <- qlc:sort(table(minichat), [{order, descending}])]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
       {CP, Plus} = conversation_principale(Curseur, Conversations, N, P),
       qlc:delete_cursor(Curseur),
       {[M || M <- CP, M > D], Plus} % filtre en fonction de D
@@ -205,7 +206,8 @@ enfants(M) ->
          qlc:sort(
             q([E#reponse_minichat.repondant || E <- table(reponse_minichat), E#reponse_minichat.cible =:= M]),
             [{order, ascending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       )
    end)).
    
@@ -219,7 +221,8 @@ parents(M) ->
          qlc:sort(
             q([E#reponse_minichat.cible || E <- table(reponse_minichat), E#reponse_minichat.repondant =:= M]),
             [{order, ascending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       )
    end)).