                                                    title))
                                         (range))
                                        (apply dom/div nil)) ))
-                               (seq groups)) ))))]
-
-                  (or  abody []))
+                               (seq groups)) ))))
+                   ]
+
+                  (if abody-fn (abody-fn app) []))
 
 
                  )


(defn webusers-edit-form [app _ {{:keys [app->row-fn row->app-fn
                                         nav-tabs-items-map
                                         abody]
                                  :or {nav-tabs-items-map {0 {:text "Логин"}
                                                           1 {:text "Роли"}}}} :specific
                                 :as opts}]
  (reify
      om/IWillMount
    (will-mount [_]

    :modal-yes-no (assoc omut/modal-yes-no-app-init :row {})
    }))

(defn webusers-search-view [app own {:keys [selection-type
                                            webusers-edit-form-specific
                                            editable?]
                                     :or {selection-type :one}}]
  (reify
      om/IInitState
    (init-state [_]
