      (ko/select "participants"
        (ko/fields :zid :pid :vote_count :created)
        (ko/where {:zid zid :created [<= final-timestamp]})))))
+
+(defn get-participation-data
+  [& args]
+  (->> (apply get-participation-data* args)
+       (map (fn [data]
+              (assoc data :datetime (datetime (:created data)))))))
 
 
 (defn get-comments-data

;; cid, author, aggrees, disagrees, mod, text


(defn full-path [darwin filename]
  (str (or (-> darwin :config :export :temp-dir) "/tmp/")
       filename))

      (update-in [:stats-history]
                 (partial scsv/vectorize {:header [:n-votes :n-comments :n-visitors :n-voters :n-commenters]}))
      (update-in [:votes]
                 (partial scsv/vectorize {:header [:created :datetime :tid :pid :vote]
                                          :format-header {:created   "timestamp"
                                                          :datetime  "datetime"
                                                          :tid       "comment-id"
                                                          :pid       "voter-id"
                                                          :vote      "vote"}}))
      (update-in [:comments]
                 (partial scsv/vectorize {:header [:created :datetime :tid :pid :aggrees :disagrees :mod :txt]
                                          :format-header {:created   "timestamp"
                                                          :datetime  "datetime"
                                                          :tid       "comment-id"
                                                          :pid       "author-id"
                                                          :aggrees   "agrees"
