Now overrides actually make an impact

2020-04-19 17:02:05 -07:00
parent a48ee8dd52
commit 47babdfe7c
10 changed files with 62 additions and 36 deletions
--- a/src/clj/auto_ap/datomic/vendors.clj
+++ b/src/clj/auto_ap/datomic/vendors.clj
@@ -23,3 +23,13 @@
            id)
       (map first)
       (first)))
+
+(defn terms-for-client-id [vendor client-id]
+  (->> 
+   (filter
+    (fn [to]
+      (= (:db/id (:vendor-terms-override/client to))
+         client-id))
+    (:vendor/terms-overrides vendor))
+   first
+   :vendor-terms-override/terms))