diff options
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/formlets.rkt b/formlets.rkt index 20a84d8..d0baffc 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -65,10 +65,10 @@ (format "~a (~a)" crop profile) (format "~a" profile)))) (formlet - (#%# (div ((class "form-floating mb-3")) ,{=> number-input requirement-proportion-b} ,input-label)) - (let ([requirement-proportion - (string->number (bytes->string/utf-8 (binding:form-value requirement-proportion-b)))]) - (and requirement-proportion (cons requirement requirement-proportion))))) + (#%# (div ((class "form-floating mb-3")) ,{=> number-input requirement-percentage-b} ,input-label)) + (let ([requirement-percentage + (string->number (bytes->string/utf-8 (binding:form-value requirement-percentage-b)))]) + (and requirement-percentage (cons requirement requirement-percentage))))) (define (targets-formlet) (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet effective-on*}) @@ -78,5 +78,6 @@ {=>* (crop-requirement-formlet requirement) requirements*})) {=>* (submit "Enregistrer la cible" #:attributes '((class "btn btn-primary"))) _}) (let ([effective-on (first effective-on*)] - [requirements (filter pair? requirements*)]) ; drop #f’s from empty values - (values effective-on requirements)))) + [nutrient-values (average-crop-requirement-nutrient-values (filter pair? + requirements*))]) + (values effective-on nutrient-values)))) |