ADD FIX#50 : numérotation des erreurs et préparation à leur traduction (coté serveur

[euphorik.git] / index.yaws
diff --git a/index.yaws b/index.yaws

index 9d31ae4..5bc67bd 100755 (executable)
--- a/index.yaws
+++ b/index.yaws
@@ -1,7 +1,18 @@
-<?xml version="1.0" encoding="UTF-8" ?>
+<?xml version="1.0" encoding="UTF-8"?>
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
+<erl>
+ out(A) ->
+   {header, {content_type, 
+      case string:str((A#arg.headers)#headers.user_agent, "MSIE") of
+         0 -> "application/xhtml+xml";
+         _ -> "text/html"
+      end
+   }}.
+</erl>
+<html xmlns="http://www.w3.org/1999/xhtml" 
+      xmlns:svg="http://www.w3.org/2000/svg"
+      xmlns:xlink="http://www.w3.org/1999/xlink">
  <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
     <title>euphorik.ch</title>