                                   (presence-of :EndTime)
                                   (format-of :EnrollmentCap :format #"^\d*$"
                                              :allow-blank true
-                                             :allow-nil true))]
+                                             :allow-nil true)
+                                  (format-of   :StartTime :format #"\d\d\d\d-\d\d-\d\dT\d\d:\d\d")
+                                  (format-of   :EndTime   :format #"\d\d\d\d-\d\d-\d\dT\d\d:\d\d"))]
     (when activity-id
       (if-let [activity (seq (d/entity @activities-db activity-id))]
         (reset! form (let [activity (into {} activity)]

                               (unparse (:date-hour-minute formatters) (parse input-date-time-formatter %))
                               %))
        normalize ; because of GMT
        #(to-date (plus (from-string %) (hours 6)))]
    (r/create-class
      {:component-did-mount
        (fn [this]

      [alandipert.storage-atom :refer [local-storage]]
      [ajax.core :refer [DELETE GET POST PUT]]
      [cljs-time.coerce :refer [from-string to-string from-long to-long from-date to-date]]
      [cljs-time.core :refer [after? at-midnight now plus minus hours days minutes date-midnight local-date
                              local-date-time year month day hour minute]]
      [cljs-time.format :refer [formatter formatters unparse parse]]
      [datascript :as d]
      [garden.core :refer [css]]
