bugfix: published date was missing

2014-01-19 13:23:51 +01:00
parent 953ad3a01e
commit a0ef174b86
2 changed files with 5 additions and 15 deletions
@@ -141,20 +141,10 @@
  (when-let [stats (:statistics (api/get-note (api/build-key [year month day] title)))]
    (layout (get-message :statistics)
            [:table#stats.helvetica.central-element
-             [:tr
-              [:td (get-message :published)]
-              [:td (:published stats)]]
-             (when (:edited stats)
-               [:tr
-                [:td (get-message :edited)]
-                [:td (:edited stats)]])
-             (when (:publisher stats)
-               [:tr
-                [:td (get-message :publisher)]
-                [:td (:publisher stats)]])
-             [:tr
-              [:td (get-message :article-views)]
-              [:td (:views stats)]]])))
+             (map
+              #(when (% stats)
+                 [:tr [:td (get-message %)] [:td (% stats)]])
+              [:published :edited :publisher :views])])))

 ; Resolving of a short url
 (defpage "/:short-url" {:keys [short-url]}