From 066f1e786272cd832280e293849580379ad22504 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 29 Nov 2025 19:28:11 +0100 Subject: Now possible to destroy ferilizers. --- views.rkt | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'views.rkt') diff --git a/views.rkt b/views.rkt index 5f532aa..1b232a2 100644 --- a/views.rkt +++ b/views.rkt @@ -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") -- cgit v1.2.3