diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-02 20:02:53 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-02 20:02:53 +0100 |
| commit | 0a3c1da70d2511d1dede37ee7d1c2ac84d0dc46e (patch) | |
| tree | 82e963a058d4e023e73488d8653f96d79761c392 /src | |
| parent | 49c20b038ec1563092ec6ab7b88d42919307339a (diff) | |
Improve score table display.
Diffstat (limited to 'src')
| -rw-r--r-- | src/logikorr/servlet.clj | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 3178cec..00440d4 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -38,7 +38,7 @@ entity)) entity-maps)))) -(def *static-directory* "/Users/mulk/Dropbox/Projekte/LogiCLJ/war") +(def *static-directory* "/Users/mulk/Dropbox/Projekte/Logikorr/war") (defn current-revision [] (or (first (ds/find-all (doto (Query. "revision") @@ -94,7 +94,7 @@ [:table#ergebnisse] [:h2 "Bestehende Ergebnisse"] [:a {:href "/logik.txt"} "(Als Text anzeigen.)"] - [:table + [:table.score-table {:border "1"} [:tr [:th "ID"] [:th "Punkte"] [:th "Nachname"] [:th "Vorname"]] (map @@ -104,7 +104,10 @@ student] [:tr [:td (str id)] - [:td (str score)] + [:td (map (fn [num] + (html [:span {:style "min-width: 2em; display: inline-block;"} num] + " ")) + score)] [:td last-name] [:td first-name]])) students)] |