% 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).\r
-export([
nouveau_message/3,
reset/0,
% reservé :
- resultat_transaction/1]).\r
+ resultat_transaction/1\r
+]).\r
\r
-include("../include/euphorik_bd.hrl").\r
-include_lib("stdlib/include/qlc.hrl").\r
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)).\r
-
+
% Bizarre, cette fonction n'existe pas dans la stdlib.
ceiling(X) ->