euphorik.ch

X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=index.yaws;h=a32b3017f29af2d9e11d1f3c8b53c9c027a1c0c6;hp=7de72c840ef204da2e387f1fa46d83217f3b620c;hb=5d9992368bb386d2e606ae037c5478fe10ac70e8;hpb=e56ca5b899d3b39c76a9056077729c04c695666b diff --git a/index.yaws b/index.yaws index 7de72c8..a32b301 100755 --- a/index.yaws +++ b/index.yaws @@ -1,52 +1,110 @@ - + - - - euphorik.ch - - 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"} - ], []} - }. - - - - - - - - - - - - - - -

- -

+ out(A) -> + {header, {content_type, + case string:str((A#arg.headers)#headers.user_agent, "MSIE") of + 0 -> "text/html"; %"application/xhtml+xml"; % TODO : jquery.lightbox does not support application/xhtml+xml + _ -> "text/html" + end + }}. +

euphorik.ch

+ % set the stylesheet + 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, "mainCss" }, + {rel, "stylesheet"}, + {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}}. + + + + - -

- -

+ +