|
|
|
@ -68,15 +68,15 @@
|
|
|
|
|
[:thead
|
|
|
|
|
[:tr
|
|
|
|
|
[:th "Name"]
|
|
|
|
|
[:th "Schema"]
|
|
|
|
|
[:th "Instance"]
|
|
|
|
|
[:th "Schema"]
|
|
|
|
|
[:th "Created"]]]
|
|
|
|
|
[:tbody
|
|
|
|
|
(for [{:keys [link target schema]} (:links-out instance)]
|
|
|
|
|
[:tr
|
|
|
|
|
[:td (h (:name link))]
|
|
|
|
|
[:td (h (:name schema))]
|
|
|
|
|
[:td (h (:name target))]
|
|
|
|
|
[:td (h (:name schema))]
|
|
|
|
|
[:td (prettify-dt (:created_at link))]])]]])]))
|
|
|
|
|
|
|
|
|
|
(defn edit! [instance form form-data schemas req]
|
|
|
|
@ -101,16 +101,16 @@
|
|
|
|
|
[:thead
|
|
|
|
|
[:tr
|
|
|
|
|
[:th "Name"]
|
|
|
|
|
[:th "Schema"]
|
|
|
|
|
[:th "Instance"]
|
|
|
|
|
[:th "Schema"]
|
|
|
|
|
[:th "Created"]
|
|
|
|
|
[:th]]]
|
|
|
|
|
[:tbody
|
|
|
|
|
(for [{:keys [link target schema]} (:links-out instance)]
|
|
|
|
|
[:tr
|
|
|
|
|
[:td (h (:name link))]
|
|
|
|
|
[:td (h (:name schema))]
|
|
|
|
|
[:td (h (:name target))]
|
|
|
|
|
[:td (h (:name schema))]
|
|
|
|
|
[:td (prettify-dt (:created_at link))]
|
|
|
|
|
[:td (hform/form-to [:delete (path :instance-link-delete
|
|
|
|
|
{:uuid (:uuid instance)
|
|
|
|
|