-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"\r
-"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">\r
-<erl>\r
- out(A) ->\r
- {header, {content_type,\r
- case string:str((A#arg.headers)#headers.user_agent, "MSIE") of\r
- 0 -> "text/html"; %"application/xhtml+xml"; % TODO : jquery.lightbox does not support application/xhtml+xml\r
- _ -> "text/html"\r
- end\r
- }}.\r
-</erl>\r
-<html xmlns="http://www.w3.org/1999/xhtml">\r
+<!DOCTYPE html>\r
+<html>\r
<head>\r
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />\r
<title>euphorik.ch</title>\r
<script type="text/javascript" src="js/communication.js" prod="delete"></script>\r
<script type="text/javascript" src="js/conf.js" prod="delete"></script>\r
<script type="text/javascript" src="js/util.js" prod="delete"></script>\r
- <script type="text/javascript" src="js/formater.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/formatter.js" prod="delete"></script>\r
<script type="text/javascript" src="js/pages.js" prod="delete"></script>\r
<script type="text/javascript" src="js/client.js" prod="delete"></script>\r
\r
<body>\r
<div id="container">\r
<erl>\r
- % permet de prédéfinir la "class" du logo pour un ekMaster...\r
+ % To redefine the logo class for the ekMasters.\r
out(A) ->\r
- Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),\r
- {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.\r
-\r
+ Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),\r
+ {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.\r
</erl>\r
<div id="info" style="display:none" ><div id="icone"></div><div class="close" ></div><div class="message" ></div><div class="buttons"></div></div>\r
<div id="waitbar" style="display:none" ><div class="image"></div></div>\r
<p>\r
<select id="menuCss">\r
<erl>\r
- % parse les styles disponible\r
+ % Parse the available styles.\r
out(A) ->\r
- Stlyes_dir = A#arg.docroot ++ "/styles",\r
- {ok, Liste_dir} = file:list_dir(Stlyes_dir),\r
+ Styles_dir = A#arg.docroot ++ "/styles",\r
+ {ok, Liste_dir} = file:list_dir(Styles_dir),\r
{ehtml,\r
lists:foldr(\r
fun(Dir, Acc) ->\r
- case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of\r
+ case file:consult(Styles_dir ++ "/" ++ Dir ++ "/infos.txt") of\r
{ok, [{nom, Nom}]} ->\r
[{option, [{value, Dir}], Nom} | Acc];\r
_ ->\r