From b310f6e261e623237f0379c954df040cf4e57a4c Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 1 Nov 2025 19:02:22 +0100 Subject: Apply minor fixes. --- models/fertilizer-product.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'models/fertilizer-product.rkt') diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index abaf77a..bd6bba9 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -46,7 +46,10 @@ [else (insert #:into fertilizer_products #:set [canonical_name ,canonical-name])])) - (define fp-id (fertilizer-product-id (get-fertilizer-product #:canonical-name canonical-name))) + (define fp-id (query-value (current-conn) + (select id + #:from fertilizer_products + #:where (= canonical_name ,canonical-name)))) (query-exec (current-conn) (insert #:into nutrient_value_sets #:set [fertilizer_product_id ,fp-id])) @@ -87,7 +90,7 @@ n.id n.canonical_name n.formula nv.value_ppm #:from (TableExpr:AST ,joined) - #:order-by canonical_name #:asc)) + #:order-by fp.canonical_name #:asc)) (define rows (query-rows (current-conn) query)) (define by-id (for/fold ([h (hash)]) ([row (in-list rows)]) -- cgit v1.2.3