X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=6eaea54799fe097871126da45bddc19468437af4;hp=93cb8356be84e89cdf73c953deef740931a39395;hb=016c2536b3d43dee91de0d13b597ad5525dc9214;hpb=1bfb8e83e2d89d9083d9f927302beaf8931b9508

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 93cb835..6eaea54 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -308,7 +308,7 @@ print_users(N) ->
    resultat_transaction(mnesia:transaction(fun() ->
       C = cursor(
          qlc:keysort(
-            9, 
+            #user.date_derniere_connexion, 
             q([E || E <- mnesia:table(user)]),
             [{order, descending}]
          ),
@@ -516,7 +516,7 @@ messages(N, P) ->
    F = fun() ->
       C = cursor(
          qlc:keysort(
-            2, 
+            #minichat.id, 
             q([E#minichat{contenu = contenu_message(E)} || E <- mnesia:table(minichat)]),
             [{order, descending}]
          ),
@@ -568,7 +568,7 @@ messages_by_ids(Ids) ->
       fun() ->
          % TODO : optimisations ? serait-ce du O(n) ?
          e(qlc:keysort(
-            2,
+            #minichat.id,
             q([E || E <- mnesia:table(minichat), lists:any(fun(Id) -> Id =:= E#minichat.id end, Ids)]),
             [{order, ascending}]
          ),[{tmpdir, ?KEY_SORT_TEMP_DIR}])
@@ -753,7 +753,7 @@ can_register(IP) ->
 trolls() ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         e(qlc:keysort(2, q([T || T <- mnesia:table(troll)])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
+         e(qlc:keysort(#troll.id, q([T || T <- mnesia:table(troll)])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
@@ -762,7 +762,7 @@ trolls() ->
 trolls(Last_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         e(qlc:keysort(2, q([T || T <- mnesia:table(troll), T#troll.id > Last_id, T#troll.date_post =:= undefined])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
+         e(qlc:keysort(#troll.id, q([T || T <- mnesia:table(troll), T#troll.id > Last_id, T#troll.date_post =:= undefined])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
@@ -852,8 +852,7 @@ troll_by_id(Troll_id) ->
 current_troll() ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         % TODO : ya pas moyen de désigner le champs plutot qu'avec un nombre pour le tri ?
-         C = cursor(qlc:keysort(5, q([T || T <- mnesia:table(troll), T#troll.date_post =/= undefined]), [{order, descending}]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
+         C = cursor(qlc:keysort(#troll.date_post, q([T || T <- mnesia:table(troll), T#troll.date_post =/= undefined]), [{order, descending}]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
          R = case qlc:next_answers(C, 1) of
             [T] -> T;
             _ -> aucun