FIX la css généré dans yaws lorsque la personne n'est pas connecté

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

index dd82f4a..1b88721 100755 (executable)
--- a/index.yaws
+++ b/index.yaws
@@ -4,10 +4,22 @@
  <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
  <head>
     <title>euphorik.ch</title>
-   
-   <link id="cssPrincipale" rel="stylesheet" href="<erl>
-    out(A) -> {html, "css/1/euphorik.css"}.
-   </erl>" type="text/css" media="screen" ></link>
+   <erl>
+      out(A) -> 
+         CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
+            undefined -> "css/1/euphorik.css";
+            C -> C
+         end,
+         {ehtml, {link ,
+            [
+               {id, "cssPrincipale" },
+               {rel, "stylesheet"},
+               {href, CSS},
+               {type, "text/css"},
+               {media, "screen"}
+            ], []}
+         }.
+   </erl>
     <link rel="stylesheet" href="css/jquery.lightbox.css" type="text/css" media="screen" ></link>
     <script type="text/javascript" src="js/jquery.js" ></script>
     <script type="text/javascript" src="js/jquery.lightbox.js"></script>