diff options
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 53 |
1 files changed, 1 insertions, 52 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index 29ea52b..f29d80f 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -20,19 +20,11 @@ (or/c #f string?)) (or/c nutrient-target? #f))] [get-nutrient-target-values (-> nutrient-target? - (listof (cons/c - nutrient? - number?)))] + (listof (cons/c nutrient? number?)))] [get-nutrient-target-value (-> nutrient-target? nutrient? number?)] [get-latest-nutrient-target-value (-> nutrient? number?)] - #; [update-nutrient-target! (->* (nutrient-target?) - (#:effective-on (or/c #f string?) - #:nutrient-values (or/c #f (listof (cons/c - nutrient? - number?)))) - (or/c nutrient-target? #f))] [delete-nutrient-target! (-> nutrient-target? void?)])) @@ -48,7 +40,6 @@ ;; CREATE - (define (create-nutrient-target! effective-on nutrient-values) (define existing-nutrient-target (get-nutrient-target #:effective-on effective-on)) (define (new-nutrient-target) @@ -149,48 +140,6 @@ ;; UPDATE -#; (define (update-nutrient-target! nutrient-target - #:effective-on [effective-on #f] - #:nutrient-values [nutrient-values '()]) - (define nm-id (nutrient-target-id nutrient-target)) - (define (nvs-id nm-id) - (query-maybe-row (current-conn) - (select id - #:from nutrient_value_sets - #:where (= nutrient_target_id ,nm-id)))) - (with-tx - (when effective-on - (query-exec (current-conn) - (update nutrient_targets - #:set [effective_on ,effective-on] - #:where (= id ,id)))) - (unless (null? nutrient-values) - (upsert-nutrient-values nm-id)) - (get-nutrient-target #:id id))) - -#; (define (upsert-nutrient-values nutrient-target-id) - (define maybe-nvs-id (nvs-id nm-id)) - (case maybe-nvs-id - [(#f) - (query-exec (current-conn) - (insert #:into nutrient_values_sets - #:set - [nutrient_target_id ,id])) - (define new-nvs-id (nvs-id nm-id)) - (query-exec (current-conn) - (string-join - '("INSERT INTO nutrient_values" - "VALUES $1 $2 $3" - "")) - new-nvs-id - )] - [else - (query-exec (current-conn) - (update nutrient_target_values - #:set [value ,value] - #:where (and (= target_id ,target-id) - (= nutrient_id ,nutrient-id))))])) - ;; DELETE |