diff options
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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)"))) |