diff options
| -rw-r--r-- | src/logikorr/servlet.clj | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 37038a9..7235eba 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -104,13 +104,12 @@ student] [:tr [:td (str id)] - [:td (mapcat (fn [nums] - (html - [:span.score-group {} - (map (fn [num] - (html [:span.score-entry num] - " ")) - nums)])) + [:td (map (fn [nums] + [:span.score-group {} + (map (fn [num] + (list [:span.score-entry num] + " ")) + nums)]) (partition 4 4 [] score))] [:td last-name] [:td first-name]])) |