From e56ca5b899d3b39c76a9056077729c04c695666b Mon Sep 17 00:00:00 2001 From: Greg Burri Date: Thu, 29 May 2008 19:13:47 +0000 Subject: [PATCH] =?utf8?q?MOD=20la=20feuille=20de=20style=20est=20maintena?= =?utf8?q?nt=20pr=C3=A9d=C3=A9fini=20d=C3=A9finit=20dans=20le=20html=20env?= =?utf8?q?oy=C3=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- doc/TODO.txt | 6 +++--- index.yaws | 18 ++++++++++++++---- modules/erl/euphorik_bd.erl | 13 +++++++++++++ 3 files changed, 30 insertions(+), 7 deletions(-) diff --git a/doc/TODO.txt b/doc/TODO.txt index ad4ba21..ec37827 100755 --- a/doc/TODO.txt +++ b/doc/TODO.txt @@ -1,9 +1,7 @@ == TODO == === v1.0 === -* Rendre compatible IE 7 (pfff..) -* Définir la bonne feuille de style au chargement de la page pour éviter le "clignotement" pas beau - * Le cookie envoyé par le client doit permettre de retrouver le user +* Rendre compatible IE 7 (pfff..) * Finir le script de mise en production * Make des modules. * Compactage des js lors de la mise en production (afin d'optimiser la bande passante lors de l'accès au site), regarder comment fait jQuery. @@ -174,6 +172,8 @@ [ok] Finir les options d'affichage des bulles et des dates [ok] Stocker quelque part la version de la BD * Créer une table "proprietes" contenant des tuples {propriete, nom, val} +[ok] Définir la bonne feuille de style au chargement de la page pour éviter le "clignotement" pas beau + * Le cookie envoyé par le client doit permettre de retrouver le user === Bugs === 1 : Critique diff --git a/index.yaws b/index.yaws index dd82f4a..7de72c8 100755 --- a/index.yaws +++ b/index.yaws @@ -4,10 +4,20 @@ euphorik.ch - - " type="text/css" media="screen" > + + out(A) -> + {ehtml, {link , + [ + {id, "cssPrincipale" }, + {rel, "stylesheet"}, + {href, + euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) + }, + {type, "text/css"}, + {media, "screen"} + ], []} + }. + diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl index bb092fa..56b7d7f 100755 --- a/modules/erl/euphorik_bd.erl +++ b/modules/erl/euphorik_bd.erl @@ -46,6 +46,7 @@ user_by_login_password/2, user_by_mess/1, toggle_ek_master/1, + css_from_user_cookie/1, % messages : nouveau_message/3, @@ -366,7 +367,19 @@ toggle_ek_master(User_id) -> end )). + +% Renvoie une chaine représentant le cookie ou undefined si pas trouvé. +css_from_user_cookie(Cookie) -> + case user_by_cookie(Cookie) of + {ok, User} -> + User#user.css; + _ -> + undefined + end. + + + user_by_login_password(Login, Password) -> resultat_transaction(mnesia:transaction( fun() -> -- 2.45.2