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 ne support pas 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, 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}}.