 (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)]

                            (flat-form->sg-columns
                             flat-form
                             :get-label? (= :label %)
                             :hide-actions-column? hide-actions-column?
                             :language new-language)})]
        (when (not= new-language language)
          (om/set-state! owner :language new-language)
