Commit 6f97fe18 authored by Kevin Meziere's avatar Kevin Meziere

cleanup clusters in vm create

parent 0c102f0e
......@@ -163,10 +163,12 @@
(g/row
{}
(g/col
{:xs 1}
(d/h4 "Cluster:"))
{:xs 9}
(d/h4 "Cluster")))
(g/row
{}
(g/col
{:xs 11}
{:xs 9}
(i/input {:type "select" :value (get-in data [:data :config :grouping])
:id "vm-create-cluster"
:on-change
......@@ -175,7 +177,7 @@
(if (empty? v)
(om/update! data [:data :config] #(dissoc % :grouping))
(om/update! data [:data :config :grouping] v)))))}
(d/option "")
(d/option " ")
(map #(d/option {:value (:uuid %)} (:name %)) (filter #(= (:type %) "cluster") (map second groupings))))))
(g/row
{}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment