X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_minichat.erl;h=0ef8ef592a64de13156b759f2916e69c39c73126;hb=e9efabd2fcb945c99ee4cf2eec0823c0fa64102b;hp=a507027b408594fc253491314908b2d136c2fdd5;hpb=897468be6fa01ab87f38189f2daf266f3289c9fb;p=euphorik.git diff --git a/modules/erl/euphorik_minichat.erl b/modules/erl/euphorik_minichat.erl index a507027..0ef8ef5 100755 --- a/modules/erl/euphorik_minichat.erl +++ b/modules/erl/euphorik_minichat.erl @@ -2,8 +2,7 @@ % Ce module permet de gérer les données persistantes lié au minichat d'euphorik.ch % Il permet d'ajouter des message, de demande les messages sur une page donnée, etc.. % Ce module utilise la base mnesia créée par le module euphorik_bd. -% Auteur : G.Burri -% Date : 22.10.2007 +% @author G.Burri -module(euphorik_minichat). -export([ @@ -35,7 +34,8 @@ nouveau_message/3, reset/0, % reservé : - resultat_transaction/1]). + resultat_transaction/1 +]). -include("../include/euphorik_bd.hrl"). -include_lib("stdlib/include/qlc.hrl"). @@ -53,7 +53,7 @@ % Connexion à la base de données de yaws sur overnux connect() -> mnesia:start(), - mnesia:change_config(extra_db_nodes, [yaws@Plop]). + mnesia:change_config(extra_db_nodes, [yaws@flynux]). % Efface tous les users, minichat_reponse et minichat. @@ -369,14 +369,7 @@ nb_page(N) -> resultat_transaction(mnesia:transaction(fun() -> ceiling(length(qlc:e(qlc:q([E#minichat.id || E <- mnesia:table(minichat)]))) / N) end)). - - -% Renvoie le numéro de la page sur lequel se trouve le message M en sachant qu'il y a N messages par page. -%~ page(M, N) -> - %~ resultat_transaction(mnesia:transaction(fun() -> - %~ ceiling((length(qlc:e(qlc:q([E || E <- mnesia:table(minichat), E#minichat.id >= M])))) / N) - %~ end)). - + % Bizarre, cette fonction n'existe pas dans la stdlib. ceiling(X) ->