X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=index.yaws;h=5bc67bd293282974bef46b8b0469d378d0e5fc75;hp=7de72c840ef204da2e387f1fa46d83217f3b620c;hb=c219198926b679ef5bc28182b3d05e8c1f447886;hpb=e56ca5b899d3b39c76a9056077729c04c695666b
diff --git a/index.yaws b/index.yaws
index 7de72c8..5bc67bd 100755
--- a/index.yaws
+++ b/index.yaws
@@ -1,52 +1,112 @@
-
-
+
-
+
+ out(A) ->
+ {header, {content_type,
+ case string:str((A#arg.headers)#headers.user_agent, "MSIE") of
+ 0 -> "application/xhtml+xml";
+ _ -> "text/html"
+ end
+ }}.
+
+
+
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 -> "styles/1/euphorik.css";
+ C -> C
+ end,
{ehtml, {link ,
[
{id, "cssPrincipale" },
{rel, "stylesheet"},
- {href,
- euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A))
- },
+ {href, CSS},
{type, "text/css"},
{media, "screen"}
], []}
}.
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+ % 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}}.
+
+
-
-
+
