X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat_conversation.erl;h=d5f486f134fb7c03616665659a16d89772b98894;hp=8cddd03f10eb487b54f211eb0ad658a0e2a753ae;hb=81b3e94e62dd60087d71efc42004f8222d9e1e7a;hpb=7a5497fe66ee5318962dd5dde9f274bedb376e5d

diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl
index 8cddd03..d5f486f 100755
--- a/modules/erl/euphorik_minichat_conversation.erl
+++ b/modules/erl/euphorik_minichat_conversation.erl
@@ -30,8 +30,8 @@
 % @spec conversations([{integer(), integer(), integer()}], integer(), integer(), integer()) -> [Conversation()]
 conversations(Racines, N, D, P) ->
    % écoute des nouveaux messages
-   case subscribe(minichat, 2) of
-      erreur = E ->
+   case mnesia:subscribe({table, minichat, simple}) of
+      {error, E} = E ->
          E;
       _ ->
          % demande des conversations
@@ -55,31 +55,33 @@ conversations(Racines, N, D, P) ->
                Conversations
             end
          ),
-         unsubscribe(minichat),
+         mnesia:unsubscribe({table, minichat, simple}),
          Conversations_mises_en_forme
    end.
    
    
 % Ecoute les événements de modification d'une table.
 % @spec subscribe(atom(), integer()) -> ok | erreur
-subscribe(_Table, 0) ->
-   erreur;
-subscribe(Table, C) ->
-   case mnesia:subscribe({table, Table, simple}) of 
-   	{error, {not_active_local, Table}} ->	    
-         mnesia:add_table_copy(minichat, node(), ram_copies),
-         subscribe(Table, C - 1);
-      {error, _}->
-         erreur;
-      _ ->
-         ok
-   end.   
+% Obsolète
+%~ subscribe(_Table, 0) ->
+   %~ erreur;
+%~ subscribe(Table, C) ->
+   %~ case mnesia:subscribe({table, Table, simple}) of 
+   	%~ {error, {not_active_local, Table}} ->
+         %~ mnesia:add_table_copy(minichat, node(), ram_copies),
+         %~ subscribe(Table, C - 1);
+      %~ {error, _}->
+         %~ erreur;
+      %~ _ ->
+         %~ ok
+   %~ end.   
    
    
 % Arrête d'écouter les modifications d'une table.
 % @spec unsubscribe(atom()) -> term()
-unsubscribe(Table) -> 
-   mnesia:unsubscribe({table, Table, simple}).
+% Obsolète
+%~ unsubscribe(Table) -> 
+   %~ mnesia:unsubscribe({table, Table, simple}).
  
  
 % Attend qu'un nouveau message arrive, function bloquante.