      ^{:key  d}
      [:option {:value d} d])])
 
-
 (defn o2-form-o2num-sel [label id opt-data data-set]
   [:div.form-group
    [:label.col-sm-3.control-label label]
    [:div.col-sm-6 [o2num-sel-tag id opt-data data-set]]
    [:div.col-sm-3 [:div]]])
+
+
 
 (defn o2-subdiv-sel-tag [id data data-set ]
   [:select.form-control {:id id

     [:div.form-horizontal
      [:div.box-body
       [o4register-input-int-row :serialnumber "Serial Number" "text" data-set focus ]
       [o4-form-o4num-sel "O4 Number" :o4number (:o4mutations @storage) data-set]
       [o4-form-sub-sel "Sub Division Name" :subdivisionid (:subdivisions @storage) data-set]
       [o4-form-villages-sel "Village Name" :villageid (:villages @storage) data-set]
       [o4register-input-row :racknumber "Rack Number" "text" data-set focus]

      [:h2.box-title doc-name]]
     [:div.form-horizontal
      [:div.box-body
       [o2register-input-row :o2number "O2 Number" "text" data-set focus]
       [o2register-input-row :startingdate "Starting Date" "date" data-set focus]
       [o2register-input-row :endingdate "Ending Date" "date" data-set focus]
       [o2-form-subdiv-sel "Sub Division Name" :subdivisionname (:subdivisions @storage) data-set]
