              (bs/panel
               "Measurements"
               [:div
-               (text-control profile_data state owner :footprint "Footprint (internal groundfloor area (m2)")
+               (text-control profile_data state owner :footprint "Footprint (internal groundfloor area m2)")
                (text-control profile_data state owner :external_perimeter "External Perimeter (m)")
                (text-control profile_data state owner :gross_internal_area "Gross Internal Area (m2)")
                (text-control profile_data state owner :number_of_storeys "Number Of Storeys")

           (bs/panel
            "Heating Systems"
            (if-let [heating-systems (seq (:heating-systems profile))]
              [:div {:class (profile-column-width)}
               (for [item heating-systems]
                 (bs/panel
                  "Heating System"

      (if (and text (re-find #"\w" text))
        [:div [:h3 title]
         [:p text]]
        [:div {:class "hidden"} [:p.form-control-static text]]))))

(defn format-time-inst [t format]
  (if (nil? t)
