     (render-state [_ state]
       (html
        [:div.col-md-12
-        (om/build header-row profiles)
-        (om/build occupancy-row profiles)
-        (om/build measurements-row profiles)
-        (om/build energy-row profiles)
-        ;; (om/build efficiency profiles)
+        [:form {:role "form"}
+         (om/build header-row profiles)
+         (om/build occupancy-row profiles)
+         (om/build measurements-row profiles)
+         (om/build energy-row profiles)
+         (om/build efficiency-row profiles)]
         ;; (om/build flats profiles)
         ;; (om/build firepalces profiles)
         ;; (om/build glazing profiles)

            [:div {:class (profile-column-width)}
             (bs/panel
              "Occupancy"
              [:dl
               [:dt "Occupancy Under 18"] [:dd (display profile_data :occupancy_under_18)]
               [:dt "Occupancy 18 To 60"] [:dd (display profile_data :occupancy_18_to_60)]
               [:dt "Occupancy Over 60"] [:dd (display profile_data :occupancy_over_60)]
               [:dt "Occupant Change"] [:dd (display profile_data :occupant_change)]])]))]))))

(defn measurements-row [profiles ownwer]
  (reify
    om/IRenderState
    (render-state [_ state]

            [:div {:class (profile-column-width)}
             (bs/panel
              "Measurements"
              [:div
               (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")
               (text-control profile_data state owner :total_volume "Total Volume (m3)")
               (text-control profile_data state owner :total_rooms "Total Rooms")
               (text-control profile_data state owner :bedroom_count "Total Bedrooms")
               (text-control profile_data state owner :habitable_rooms "Habitable Rooms")
               (text-control profile_data state owner :inadequate_heating "Inadequate Heating?")
               (text-control profile_data state owner :heated_habitable_rooms "Heated Habitable Rooms")])]))]))))

(defn energy-row [profiles owner]
  (reify
    om/IRenderState
    (render-state [_ state]
