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];
_ ->