From dd36c04ae810558b61169220208ab2731973d1ae Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Wed, 10 Dec 2025 21:09:24 +0100 Subject: Update view. --- views.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'views.rkt') 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") -- cgit v1.2.3