diff options
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -155,12 +155,17 @@ `(p "La recette Ferti requiert au moins un relevé et une cible."))))) (define (ferti-fertilizers-page fertilizers) + (define (delete-button-for fp) + `(a ((class "btn btn-outline-danger btn-sm") + [href ,(format "/ferti/fertilizer/destroy/~a" (fertilizer-product-id fp))]) + "Supprimer")) (define table `(table ((class "table table-striped")) - (tr (th () "Nom de référence") (th () "Nom de marque")) + (tr (th () "Nom de référence") (th () "Nom de marque") (th () "Actions")) ,@(for/list ([fertilizer fertilizers]) `(tr (td ,(fertilizer-name fertilizer)) - (td ,(or (fertilizer-brand-name fertilizer) "—")))))) + (td ,(or (fertilizer-brand-name fertilizer) "—")) + (td ,(delete-button-for fertilizer)))))) (ferti-template `((h2 () "Intrants") (a ((class "btn btn-primary mb-3") [href "/ferti/fertilizer/new"]) "Ajouter un intrant") |