diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-22 18:08:48 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-22 18:08:48 +0100 |
| commit | 09e2b04a7b469daa4b8b6fd89b88ae800d612fd6 (patch) | |
| tree | c42ba360b2894ffc39e5f6e19c6263d42b2ba42f /formlets.rkt | |
| parent | fc9f74466d0b56a089f8b6d8aed870e0b943f092 (diff) | |
Make fertilizer product brand name obligatory.
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/formlets.rkt b/formlets.rkt index 6ae4551..cc89fc0 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -87,14 +87,12 @@ requirements*))]) (values effective-on nutrient-values)))) -(define (name-formlet) - (define string-input (input #:type "string" #:attributes `((class "form-control")))) - (formlet (#%# (div ((class "mb-3")) ,{=> string-input string-value-b})) - (bytes->string/utf-8 (binding:form-value string-value-b)))) +(define string-input + (to-string (required (text-input #:attributes '((class "form-control") [required "required"]))))) (define (fertilizer-formlet) - (formlet* (#%# `(div ((class "mb-3")) (h5 "Nom de référence") ,{=>* (name-formlet) canonical-name*}) - `(div ((class "mb-3")) (h5 "Nom de marque") ,{=>* (name-formlet) brand-name*}) + (formlet* (#%# `(div ((class "mb-3")) (h5 "Nom de référence") ,{=>* string-input canonical-name*}) + `(div ((class "mb-3")) (h5 "Nom de marque") ,{=>* string-input brand-name*}) `(div ((class "mb-3")) (h5 "Valeurs de l'intrant") ,@(for/list ([nutrient (get-nutrients)]) @@ -104,4 +102,4 @@ [nutrient-values (for/hash ([nv (filter pair? nutrient-values*)]) (values (car nv) (cdr nv)))] [brand-name (first brand-name*)]) - (values canonical-name nutrient-values brand-name)))) + (values canonical-name brand-name nutrient-values)))) |