simon/adl
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Delete widget now suppressed unless there's a valid record.

Browse source
This commit is contained in:
Simon Brooke 2018-08-06 12:15:46 +01:00
parent 7be2225917
commit 9d9a800289
1 changed files with 27 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/adl/to_selmer_templates.clj
View file

@ -201,9 +201,14 @@
(defn delete-widget (defn delete-widget
"Return an appropriate 'save' widget for this `form` operating on this "Return an appropriate 'save' widget for this `form` operating on this
`entity` taken from this `application`. `entity` taken from this `application`."
TODO: should be suppressed unless member of a group which can delete."
[form entity application] [form entity application]
(flatten
(list
(str "{% if all "
(s/join " " (map #(str "params." %) (key-names entity)))
" %}")
(wrap-in-if-member-of (wrap-in-if-member-of
{:tag :p {:tag :p
:attrs {:class "widget action-dangerous"} :attrs {:class "widget action-dangerous"}
@ -222,7 +227,8 @@
:value (str "Delete!")}}]} :value (str "Delete!")}}]}
:editable :editable
entity entity
application)) application)
"{% endif %}")))
(defn select-property (defn select-property