|
|
|
@ -16,13 +16,26 @@
|
|
|
|
|
(h (:name instance))
|
|
|
|
|
[:small " with..."]]
|
|
|
|
|
(hform/form-to
|
|
|
|
|
{:class "no-grid"}
|
|
|
|
|
[:post (path :instance-bulk-link-create instance)]
|
|
|
|
|
(anti-forgery-field)
|
|
|
|
|
(for [{:keys [schema form]} forms]
|
|
|
|
|
[:fieldset
|
|
|
|
|
[:legend "Schema " [:strong (-> schema :name h)]]
|
|
|
|
|
(form/render-widgets form
|
|
|
|
|
nil
|
|
|
|
|
req
|
|
|
|
|
{:render-anti-forgery-field? false})])
|
|
|
|
|
(for [{:keys [schema instances]} forms]
|
|
|
|
|
(list
|
|
|
|
|
[:h2 "Schema " (h (:name schema))]
|
|
|
|
|
[:label
|
|
|
|
|
"Link name "
|
|
|
|
|
[:input {:name (str "name[" (:uuid schema) "]")}]]
|
|
|
|
|
[:table
|
|
|
|
|
[:thead
|
|
|
|
|
[:tr
|
|
|
|
|
[:th "Selection"]
|
|
|
|
|
[:th "Name"]]]
|
|
|
|
|
[:tbody
|
|
|
|
|
(for [{:keys [name uuid]} instances]
|
|
|
|
|
[:tr
|
|
|
|
|
[:td {:style "text-align: center;"}
|
|
|
|
|
[:input {:type "checkbox"
|
|
|
|
|
:name (str "instances[" (:uuid schema) "]")
|
|
|
|
|
:value uuid}]]
|
|
|
|
|
[:td (h name)]])]]))
|
|
|
|
|
(hform/submit-button "Link!"))]))
|
|
|
|
|