Add measurement editing + updating logic.

1 files changed, 6 insertions, 0 deletions

diff --git a/views.rkt b/views.rkt
index 3544474..2ffce4c 100644
--- a/views.rkt
+++ b/views.rkt
@@ -9,6 +9,7 @@
          new-measurement-page
          new-rotation-page
          new-fertilizer-page
+         edit-measurement-page
          edit-fertilizer-page
          show-measurement-page
          show-rotation-page
@@ -207,6 +208,11 @@
 
 ;; Edit
 
+(define (edit-measurement-page nm)
+  (form-page-template "Modifier le relevé"
+                      "/ferti/measurements/update"
+                      (measurements-formlet #:value nm)))
+
 (define (edit-fertilizer-page fp)
   (form-page-template "Modifier intrant" "/ferti/fertilizers/update" (fertilizer-formlet #:value fp)))