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 /handlers.rkt | |
| parent | fc9f74466d0b56a089f8b6d8aed870e0b943f092 (diff) | |
Make fertilizer product brand name obligatory.
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/handlers.rkt b/handlers.rkt index 7304d18..a6b6a13 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -99,14 +99,12 @@ (response/xexpr #:preamble #"<!DOCTYPE html>" (new-fertilizer-page))) (define (create-fertilizer req) - (define-values (canonical-name nutrient-values brand-name) + (define-values (canonical-name brand-name nutrient-values) (formlet-process (fertilizer-formlet) req)) - (create-fertilizer-product! canonical-name nutrient-values brand-name) + (create-fertilizer-product! canonical-name brand-name nutrient-values) (redirect-to "/ferti")) ;; Fallback (define (fallback _) (response/xexpr #:preamble #"<!DOCTYPE html>" (fallback-page 404))) - -(define secured-dispatch (wrap-basic-auth app-dispatch)) |