X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=index.yaws;fp=index.yaws;h=99ce4544e8cae8476fea2b0980ebf303a8c6869e;hp=7899936c92afb38d481356188e5868f258046dc2;hb=0fd41878c239877c274bd2bf58caf65b24977e52;hpb=cb02531d4a4b217997db3fdfe2661af18c576ddd diff --git a/index.yaws b/index.yaws index 7899936..99ce454 100755 --- a/index.yaws +++ b/index.yaws @@ -67,11 +67,10 @@
- % permet de prédéfinir la "class" du logo pour un ekMaster... + % To redefine the logo class for the ekMasters. 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}}. - + Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)), + {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}. @@ -84,12 +83,12 @@ % parse les styles disponible out(A) -> - Stlyes_dir = A#arg.docroot ++ "/styles", - {ok, Liste_dir} = file:list_dir(Stlyes_dir), + Styles_dir = A#arg.docroot ++ "/styles", + {ok, Liste_dir} = file:list_dir(Styles_dir), {ehtml, lists:foldr( fun(Dir, Acc) -> - case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of + case file:consult(Styles_dir ++ "/" ++ Dir ++ "/infos.txt") of {ok, [{nom, Nom}]} -> [{option, [{value, Dir}], Nom} | Acc]; _ ->