Do not use xhtml mimetype, no CDATA, for IE compatibility
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 14:18:15 +0000 (14:18 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 15 Sep 2010 14:18:15 +0000 (14:18 +0000)
b18n-combined-cgi.hs

index 0367842..58d15c0 100644 (file)
@@ -190,7 +190,10 @@ page (PageInfo {..}) =
        )
        
 
-cdata s = primHtml ("<![CDATA[\n"++ s ++ "\n]]>")
+cdata s = primHtml $
+    -- "<!--//--><![CDATA[//><!--\n" ++
+    s
+    -- ++"\n//--><!]]>"
 
 maindiv = thediv ! [theclass "main"]
         
@@ -322,7 +325,7 @@ defaultPlayCode (Config{ b18nMode = CombinedB18n}) get =
             ]
 
 formMain = do
-        setHeader "Content-type" "application/xhtml+xml; charset=UTF-8"
+        setHeader "Content-type" "text/html; charset=UTF-8"
 
         conf <- do
             b18nMode' <- maybe CombinedB18n read <$> getInput "b18nMode"