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. --- handlers.rkt | 2 +- views.rkt | 9 +++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/handlers.rkt b/handlers.rkt index fb95091..62c575b 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -68,7 +68,7 @@ [("ferti" "fertilizer" "new") #:method "get" new-fertilizer] [("ferti" "fertilizer" "create") #:method "post" create-fertilizer] [("ferti" "fertilizer" (integer-arg)) #:method "get" show-fertilizer] - [("ferti" "fertilizer" (integer-arg)) #:method "delete" destroy-fertilizer] + [("ferti" "fertilizer" "destroy" (integer-arg)) #:method "get" destroy-fertilizer] ;; Default [("") #:method "get" index] [else fallback])) 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