 (defn get-extra-fields
   "Extra fields that will be displayed on the table."
   [is-filtered-dataview?]
-  (let [extra-field  [{:full-name _id :label "ID" :name _id :type
-                       "integer"}]]
-    (if is-filtered-dataview?
-      extra-field
-      (conj extra-field forms/submission-time-field))))
+  (let [id-field  [{:full-name _id
+                    :label "ID"
+                    :name _id
+                    :type "integer"}]]
+    (cond-> id-field
+      (not is-filtered-dataview?) (conj forms/submission-time-field))))
 
 (defn all-fields
   "Given a (flat-)form, returns fields for table display.

                     :cssClass column-class
                     :minWidth 50
                     :hxl hxl}))]
    (clj->js (conj columns
                   (when-not hide-actions-column?
                     (actions-column owner has-hxl?))))))

(defn init-sg-pager [grid dataview]
  (let [Pager (.. js/Slick -Controls -Pager)]

                           (init-grid! new-data
                                       owner
                                       slick-grid-event-handlers)]
                  (handle-table-events cursor grid dataview))
                (do ; data has changed
                  (.invalidateAllRows grid)
                  (.setItems dataview (clj->js new-data) _id)
