Replace some french comments by english ones.
[euphorik.git] / index.yaws
index a32b301..d295414 100755 (executable)
@@ -1,16 +1,5 @@
-<?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
    <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
+               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