X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;ds=sidebyside;f=index.yaws;h=9b80ee1767f5c716b680e5240ba42cdbac88a586;hb=808fb60f6c10dfcaccee94c6a49f768de84dc2ef;hp=7899936c92afb38d481356188e5868f258046dc2;hpb=cb02531d4a4b217997db3fdfe2661af18c576ddd;p=euphorik.git
diff --git a/index.yaws b/index.yaws
index 7899936..9b80ee1 100755
--- a/index.yaws
+++ b/index.yaws
@@ -46,7 +46,7 @@
-
+
@@ -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];
_ ->