From 57933beea0d308588968a6a11ec5a28c0467e224 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 13 Dec 2025 22:45:27 +0100 Subject: Measurements and fertilizers can now be persisted 2 ways. --- handlers.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'handlers.rkt') 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) -- cgit v1.2.3