diff options
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/formlets.rkt b/formlets.rkt index f3f9c96..f24c84f 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -33,7 +33,7 @@ (formlet (#%# (div ((class "form-floating mb-3")) ,{=> number-input nutrient-value-b} ,input-label)) (let ([nutrient-value (string->number (bytes->string/utf-8 (binding:form-value nutrient-value-b)))]) - (and nutrient-value (cons id nutrient-value))))) + (and nutrient-value (cons nutrient nutrient-value))))) (define (measurements-formlet) (formlet* (#%# `(div ((class "mb-3")) (h5 "Date du relevé") ,{=>* date-formlet measured-on*}) @@ -43,8 +43,9 @@ {=>* (measurement-formlet nutrient) measurements*})) {=>* (submit "Enregistrer le relevé" #:attributes '((class "btn btn-primary"))) _}) (let ([measured-on (first measured-on*)] - [measurements (filter pair? measurements*)]) ; drop #f’s from empty values - (values measured-on measurements)))) + [nutrient-values (for/hash ([nv (in-list (filter pair? measurements*))]) + (values (car nv) (cdr nv)))]) + (values measured-on nutrient-values)))) (define (crop-requirement-formlet requirement) (define id (crop-requirement-id requirement)) @@ -56,8 +57,11 @@ #f)) (define number-input (input #:type "number" - #:attributes - `((class "form-control") [id ,(number->string id)] [min "0"] [max "100"] [step "1"] [placeholder ,profile]))) + #:attributes `((class "form-control") [id ,(number->string id)] + [min "0"] + [max "100"] + [step "1"] + [placeholder ,profile]))) (define input-label `(label ((for ,(number->string id) )) |