diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 11:58:25 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 11:58:25 +0100 |
| commit | 1a8775dfe5786e71e7486e0d26d7dda627db2335 (patch) | |
| tree | 40b3b294f8ac4c02b5c7bc45746ef787e1bde102 /formlets.rkt | |
| parent | 355bbfd898a8b61797b3a077f15c5f97ab7ebb04 (diff) | |
Refactor 'measured-on' to 'measurement-date'.
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/formlets.rkt b/formlets.rkt index bc31519..3f771f1 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -11,16 +11,16 @@ "models/crop-requirement.rkt") (define (measurements-formlet) - (formlet* (#%# `(div ((class "mb-3")) (h5 "Date du relevé") ,{=>* date-formlet measured-on*}) + (formlet* (#%# `(div ((class "mb-3")) (h5 "Date du relevé") ,{=>* date-formlet measurement-date*}) `(div ((class "mb-3")) (h5 "Valeurs du relevé") ,@(for/list ([nutrient (get-nutrients)]) {=>* (nutrient-value-formlet nutrient) nutrient-values*})) {=>* (submit "Enregistrer le relevé" #:attributes '((class "btn btn-primary"))) _}) - (let ([measured-on (first measured-on*)] + (let ([measurement-date (first measurement-date*)] [nutrient-values (for/hash ([nv nutrient-values*]) (values (car nv) (cdr nv)))]) - (values measured-on nutrient-values)))) + (values measurement-date nutrient-values)))) (define (targets-formlet) (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet effective-on*}) |