diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:04:09 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:04:09 +0100 |
| commit | 7e507567859f2db33776bb39b18f164e36f7e693 (patch) | |
| tree | 9f0dfdc353ca505ba19cc4ef9a8c3a3d32ccaac7 /formlets.rkt | |
| parent | 1a8775dfe5786e71e7486e0d26d7dda627db2335 (diff) | |
Refactor 'effective-on' to 'target-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 3f771f1..4d18225 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -23,16 +23,16 @@ (values measurement-date nutrient-values)))) (define (targets-formlet) - (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet effective-on*}) + (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet target-date*}) `(div ((class "mb-3")) (h5 "Valeurs cibles (%)") ,@(for/list ([requirement (get-crop-requirements)]) {=>* (crop-requirement-formlet requirement) requirements*})) {=>* (submit "Enregistrer la cible" #:attributes '((class "btn btn-primary"))) _}) - (let ([effective-on (first effective-on*)] + (let ([target-date (first target-date*)] [nutrient-values (average-crop-requirement-nutrient-values (filter pair? requirements*))]) - (values effective-on nutrient-values)))) + (values target-date nutrient-values)))) (define (fertilizer-formlet) (formlet* |