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

48
src/adl/to_selmer_templates.clj
View file

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