diff options
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)]) |