diff options
| -rw-r--r-- | views.rkt | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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") |