diff options
| -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") |