diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
| commit | b310f6e261e623237f0379c954df040cf4e57a4c (patch) | |
| tree | b6e01cf56f954705a5d02ade4d902263a26570de /models/fertilizer-product.rkt | |
| parent | 56985d215b2d3665937d5675bd3f52df3ee15109 (diff) | |
Apply minor fixes.
Diffstat (limited to 'models/fertilizer-product.rkt')
| -rw-r--r-- | models/fertilizer-product.rkt | 7 |
1 files changed, 5 insertions, 2 deletions
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)]) |