word/quiz: automatic subpage setup including specific css

[sheet.git] / word.plp

diff --git a/word.plp b/word.plp
index 0635161a96230df05d2eea57e057b96a824a0e32..36150ab33e1b4b7d1d66416919831a87788041bf 100644 (file)
--- a/word.plp
+++ b/word.plp
@@ -12,8 +12,13 @@ if ($Request and $Request =~ m{\A([^/]+)}) {
        }
        else {
                Html({
-                       raw => join("\n", map qq(<script src="/word/$_"></script>),
-                               'put.min.js', 'quiz.js', "$name.js",
+                       raw => join("\n",
+                               (map {qq(<script src="/word/$_"></script>)}
+                                       'put.min.js', 'quiz.js', "$name.js",
+                               ),
+                               (map {qq(<link rel="stylesheet" type="text/css" href="/$_">)}
+                                       grep {-e} "word/$name.css"
+                               ),
                        ),
                        lang => $lang,
                });