Measurements and fertilizers can now be persisted 2 ways.

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)