X-Git-Url: http://git.euphorik.ch/index.cgi?a=blobdiff_plain;ds=inline;f=index.yaws;h=d3ff0f8720d5273e76ba37e9e852e0e093833b12;hb=e2fc8a1a3dd118b714a2ea55daf1829fa1b98649;hp=1b887215d24dabb46176c7b71a01ceb9c15d3cc8;hpb=a193d10c45d8226937c91a17dc588e4f6f1586fd;p=euphorik.git
diff --git a/index.yaws b/index.yaws
index 1b88721..d3ff0f8 100755
--- a/index.yaws
+++ b/index.yaws
@@ -1,10 +1,12 @@
-
+
euphorik.ch
+ % prédéfinit la feuille de style
out(A) ->
CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
undefined -> "css/1/euphorik.css";
@@ -34,10 +36,16 @@
-
+
+ % permet de prédéfinir la "class" du logo pour un ekMaster..
+ out(A) ->
+ Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),
+ {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.
+
+
-
+
\ No newline at end of file