diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-29 19:28:11 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-29 19:28:11 +0100 |
| commit | 066f1e786272cd832280e293849580379ad22504 (patch) | |
| tree | 446e4cd046a3e25b0865908c0f6074a60142a64c | |
| parent | 6e8d8dc281888db9d8dfe57bde92e1e286c48dc1 (diff) | |
Now possible to destroy ferilizers.
| -rw-r--r-- | handlers.rkt | 2 | ||||
| -rw-r--r-- | 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])) @@ -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") |