Update view.

1 files changed, 5 insertions, 3 deletions

diff --git a/views.rkt b/views.rkt
index bd6b3b9..d48395c 100644
--- a/views.rkt
+++ b/views.rkt
@@ -240,7 +240,8 @@
                    ,table)))
 
 (define (show-fertilizer-page fp)
-  (define title (fertilizer-product-name fp))
+  (define product-name (fertilizer-product-name fp))
+  (define brand-name (fertilizer-brand-name fp))
   (define nutrient-values (fertilizer-product-values fp))
   (define table
     `(table ((class "table"))
@@ -250,8 +251,9 @@
                        `(tr (td ,(nutrient-french-name nutrient))
                             (td ((class "text-end font-monospace")) ,(round 2 quantity)))))))
 
-  (page-template title
-                 `((h1 ((class "display-1 mb-3")) ,title)
+  (page-template product-name
+                 `((h1 ((class "display-1 mb-3")) ,(or brand-name "Intrant générique"))
+                   (h5 ((class "display-5 mb-3")) ,product-name)
                    (a ((class "btn btn-danger")
                        [href ,(format "/ferti/fertilizers/destroy/~a" (fertilizer-product-id fp))])
                       "Supprimer")