Now possible to destroy ferilizers.

1 files changed, 7 insertions, 2 deletions

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