Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1455:913d9c2f55c9 1456:d674fb9499c4
2659 case side of 2659 case side of
2660 ServerOnly => "" 2660 ServerOnly => ""
2661 | _ => 2661 | _ =>
2662 let 2662 let
2663 val scripts = 2663 val scripts =
2664 "<script src=\\\"" 2664 "<script type=\\\"text/javascript\\\" src=\\\""
2665 ^ OS.Path.joinDirFile {dir = Settings.getUrlPrefix (), 2665 ^ OS.Path.joinDirFile {dir = Settings.getUrlPrefix (),
2666 file = "app.js"} 2666 file = "app.js"}
2667 ^ "\\\"></script>\\n" 2667 ^ "\\\"></script>\\n"
2668 in 2668 in
2669 foldl (fn (x, scripts) => 2669 foldl (fn (x, scripts) =>
2670 scripts 2670 scripts
2671 ^ "<script src=\\\"" ^ x ^ "\\\"></script>\\n") 2671 ^ "<script type=\\\"text/javascript\\\" src=\\\"" ^ x ^ "\\\"></script>\\n")
2672 scripts (Settings.getScripts ()) 2672 scripts (Settings.getScripts ())
2673 end 2673 end
2674 in 2674 in
2675 string scripts 2675 string scripts
2676 end, 2676 end,