X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=b72d7a8c87046d0a66469686f1b7c4d9172488e1;hp=2b18d5b24cb38ba87fd5791dfee231768d9f25ff;hb=650c44a784cabc8a1f2bd1daa7e5e61ccf74ca6f;hpb=77a18f781417d222d52b50221e9051194bd3195f

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 2b18d5b..b72d7a8 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -303,12 +303,19 @@ update_pseudo_user(UserId, Pseudo) ->
    
    
 % Affiche N user trié par leur date de dernière connexion.
-print_users(N) ->
+% Opt est une liste d'option d'affichage :
+%  * ekmaster : n'affiche que les admins
+print_users(N, Opt) ->
+   AfficheQueLesEkMaster = lists:any(fun(O) -> O =:= ekmaster end, Opt),
    resultat_transaction(mnesia:transaction(fun() ->
       C = cursor(
          qlc:keysort(
             #user.date_derniere_connexion, 
-            q([E || E <- mnesia:table(user)]),
+            if AfficheQueLesEkMaster ->
+               q([E || E <- mnesia:table(user), E#user.ek_master =:= true]);
+            true ->
+               q([E || E <- mnesia:table(user)])
+            end,
             [{order, descending}]
          ),
          [{tmpdir, ?KEY_SORT_TEMP_DIR}]
@@ -324,10 +331,13 @@ print_users(N) ->
    end)).
    
    
+% Affiche tous les users.
+print_users(Opt) ->
+   print_users(all_remaining, Opt).
+
 % Affiche tous les users.
 print_users() ->
-   print_users(all_remaining).
-   
+   print_users(all_remaining, []).
    
 print_user(User) when is_record(User, user) ->
    #user{id = Id, pseudo = Pseudo, login = Login, ek_master = Ek_master, date_derniere_connexion = Date, last_ip = IP} = User,