                       ".txt"
                       nil))]
     (if extension
-      [:a {:href (str base extension)} "dump #" (:id row)]
-      [:div "No dump file for game " (:id row)])))
+      [:a {:href (str base extension)} (:id row)]
+      (:id row))))
+
+;;[:td [:a {:href (str "/game/" (:id row))} (:id row)]]
+
+(defn pretty-date [date]
+  (let [date (str date)]
+    (if (= (count date) 8)
+      (str (.substring date 0 4) "-"
+           (.substring date 4 6) "-"
+           (.substring date 6 8))
+      date)))
 
 
 (defn rs-row-to-tr [row]
   [:tr
-   [:td [:a {:href (str "/game/" (:id row))} (:id row)]]
+   [:td (make-dump-link row)]
    [:td [:a {:href (str "/user/" (:name row))} (:name row)]]
    [:td (:points row)]
    [:td (:turns row)]
-   [:td (:deathdate row)]
+   [:td (:deathdate (pretty-date row))]
    [:td [:a {:href (str "/cause/" (url-encode (:death_uniq row)))} (:death row)]]])
 
 (defn rs-to-table [rs]

    [:body
     [:h1 "un.nethack.nu"]
     [:div#menu
      [:a {:href "/"} "last 25 games"] " | "
      [:a {:href "/highscores"} "highscores"] " | "
      [:a {:href "/users"} "users"] " | "
      [:a {:href "/causes"} "causes"]]

    [:head
     [:title "un.nethack.nu"]
     [:style {:type "text/css"}
      "body { font-family: verdana; font-size: 10px; }"
      "table { width: 100%; font-size: 11px; }"
      "th{ color: black; text-shadow:1px 1px 1px #bbb; }"
      "tr:nth-child(odd) { color: black; background-color:#eee; }"
