diff options
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/handlers.rkt b/handlers.rkt index f1825b9..988789b 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -85,8 +85,10 @@ (render-page (new-measurement-page))) (define (create-measurement req) - (define-values (measurement-date nutrient-values) (formlet-process (measurements-formlet) req)) - (create-nutrient-measurement! measurement-date nutrient-values) + (define new-measurement (formlet-process (measurements-formlet) req)) + (if (get-nutrient-measurement #:date (nutrient-measurement-date new-measurement)) + (update-nutrient-measurement! new-measurement) + (create-nutrient-measurement! new-measurement)) (redirect-to "/ferti/measurements-and-rotations")) (define (show-measurement _ id) @@ -124,8 +126,8 @@ (render-page (new-fertilizer-page))) (define (create-fertilizer req) - (define new-fertilizer-product (formlet-process (fertilizer-formlet) req)) - (create-fertilizer-product! new-fertilizer-product) + (define new-fertilizer (formlet-process (fertilizer-formlet) req)) + (create-fertilizer-product! new-fertilizer) (redirect-to "/ferti/fertilizers")) (define (show-fertilizer _ id) |