Mercurial > urweb

diff src/cjr_print.sml @ 1456:d674fb9499c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include type attribute in script tag for generating valid XHTML.
author Karn Kallio <kkallio@eka>
date Fri, 06 May 2011 20:51:40 -0430
parents b6ce8ef0ea88
children 2f5fd248588d
line wrap: on
line diff
--- a/src/cjr_print.sml	Fri May 06 16:24:45 2011 -0430
+++ b/src/cjr_print.sml	Fri May 06 20:51:40 2011 -0430
@@ -2661,14 +2661,14 @@
                                               | _ =>
                                                 let
                                                     val scripts =
-                                                        "<script src=\\\""
+                                                        "<script type=\\\"text/javascript\\\" src=\\\""
                                                         ^ OS.Path.joinDirFile {dir = Settings.getUrlPrefix (),
                                                                                file = "app.js"}
                                                         ^ "\\\"></script>\\n"
                                                 in
                                                     foldl (fn (x, scripts) =>
                                                               scripts
-                                                              ^ "<script src=\\\"" ^ x ^ "\\\"></script>\\n")
+                                                              ^ "<script type=\\\"text/javascript\\\" src=\\\"" ^ x ^ "\\\"></script>\\n")
                                                           scripts (Settings.getScripts ())
                                                 end
                                     in