diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-03 10:13:14 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-03 10:13:14 +0100 |
| commit | 4a94c47e386e5818c2fe9f662277487da4c32ed7 (patch) | |
| tree | 0c9e29dd4186ca19164915a909b36b9695fc53fc /src | |
| parent | 0a3c1da70d2511d1dede37ee7d1c2ac84d0dc46e (diff) | |
Improve the score table display some more by grouping score entries by exercise sheet.
Diffstat (limited to 'src')
| -rw-r--r-- | src/logikorr/servlet.clj | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 00440d4..37038a9 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -104,10 +104,14 @@ student] [:tr [:td (str id)] - [:td (map (fn [num] - (html [:span {:style "min-width: 2em; display: inline-block;"} num] - " ")) - score)] + [:td (mapcat (fn [nums] + (html + [:span.score-group {} + (map (fn [num] + (html [:span.score-entry num] + " ")) + nums)])) + (partition 4 4 [] score))] [:td last-name] [:td first-name]])) students)] |