diff options
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/handlers.rkt b/handlers.rkt index 179775e..010fe8e 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -10,8 +10,8 @@ "views.rkt" "formlets.rkt" "models/user.rkt" - "models/nutrient.rkt" "models/nutrient-measurement.rkt" + "models/crop-requirement.rkt" "models/crop-rotation.rkt" "models/fertilizer-product.rkt" "services/nnls.rkt") @@ -27,6 +27,7 @@ [("ferti" "measurements-and-rotations") #:method "get" ferti-measurements-and-rotations] [("ferti" "recipes" (string-arg)) #:method "get" ferti-recipe] [("ferti" "fertilizers") #:method "get" ferti-fertilizers] + [("ferti" "crop-requirements") #:method "get" ferti-crop-requirements] ;; Nutrient measurements [("ferti" "measurements" "new") #:method "get" new-measurement] [("ferti" "measurements" "create") #:method "post" create-measurement] @@ -71,8 +72,10 @@ (render-page (ferti-recipe-page date-string ferti-recipe))) (define (ferti-fertilizers _) - (define fertilizers (get-fertilizer-products)) - (render-page (ferti-fertilizers-page fertilizers))) + (render-page (ferti-fertilizers-page (get-fertilizer-products)))) + +(define (ferti-crop-requirements _) + (render-page (ferti-crop-requirements-page (get-crop-requirements)))) ;; Nutrient measurements |