X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=index.yaws;h=f345df069589a2c59b05e6ef7c1741e0ec3f8617;hp=7de72c840ef204da2e387f1fa46d83217f3b620c;hb=refs%2Fheads%2F1.0;hpb=e56ca5b899d3b39c76a9056077729c04c695666b
diff --git a/index.yaws b/index.yaws
index 7de72c8..f345df0 100755
--- a/index.yaws
+++ b/index.yaws
@@ -3,16 +3,19 @@
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+
euphorik.ch
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,
- euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A))
- },
+ {href, CSS},
{type, "text/css"},
{media, "screen"}
], []}
@@ -46,7 +49,7 @@
-
+
\ No newline at end of file