diff options
| -rw-r--r-- | views.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -221,7 +221,7 @@ (define title (format "Relevé du ~a" (normal-date (nutrient-measurement-date nm)))) (define table `(table ((class "table")) - (thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé (mg/L)"))) + (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)"))) (tbody ,@(for/list ([n (get-nutrients)]) (define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0)) `(tr (td ,(nutrient-french-name n)) @@ -261,7 +261,7 @@ (define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr)) (define table `(table ((class "table")) - (thead (tr (th "Nutriment") (th ((class "text-end")) "Apport (mg/L)"))) + (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)"))) (tbody ,@(for/list ([nv-pair sorted-nutrient-values]) (match-define (cons n v) nv-pair) `(tr (td ,(nutrient-french-name n)) |