diff options
| -rw-r--r-- | views.rkt | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -86,6 +86,8 @@ (define latest-target (get-latest-nutrient-target-value n)) (define latest-measurement (get-latest-nutrient-measurement-value n)) (define delta-percentage (cond + [(false? latest-target) + #f] [(zero? latest-target) -100] [(zero? latest-measurement) @@ -93,8 +95,7 @@ [(number? latest-target) (* 100 (/ (- latest-target latest-measurement) - latest-measurement))] - [else #f])) + latest-measurement))])) `(tr (td ,(nutrient-name n)) (td ([class "text-end"]) ,(if latest-measurement (round 2 latest-measurement) "—")) (td ([class "text-end"]) ,(if latest-target (round 2 latest-target) "—")) @@ -107,7 +108,7 @@ (th ([class "text-end"]) "P") (th ([class "text-end"]) "K")) ,@(for/list ([m measurements]) - (define measured-on (nutrient-measurement-measured-on m)) + (define measured-on (nutrient-measurement-date m)) (define-values (n p k) (apply values (for/list ([nutrient '("Nitrate Nitrogen" "Phosphorus" "Potassium")]) |