summaryrefslogtreecommitdiff
path: root/views.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'views.rkt')
-rw-r--r--views.rkt5
1 files changed, 2 insertions, 3 deletions
diff --git a/views.rkt b/views.rkt
index 805dc58..3544474 100644
--- a/views.rkt
+++ b/views.rkt
@@ -17,10 +17,10 @@
(require gregor
web-server/formlets
- racket/hash
"formlets.rkt"
"models/user.rkt"
"models/nutrient.rkt"
+ "models/nutrient-value.rkt"
"models/nutrient-measurement.rkt"
"models/crop.rkt"
"models/crop-rotation.rkt"
@@ -257,8 +257,7 @@
(define (show-fertilizer-page fp)
(define product-name (fertilizer-product-name fp))
(define brand-name (fertilizer-brand-name fp))
- (define positive-nutrient-values (hash-filter-values (fertilizer-product-values fp) positive?))
- (define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr))
+ (define sorted-nutrient-values (get-sorted-nutrient-values (fertilizer-product-values fp)))
(define table
`(table ((class "table"))
(thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
Copyright 2019--2026 Marius PETER