notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

saving clients pretty much works.

Browse Source
This commit is contained in:
Bryce Covert
2019-01-21 11:30:16 -08:00
parent e39dda9aac
commit 9385624309
3 changed files with 31 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/clj/auto_ap/graphql.clj
View File

@@ -259,6 +259,7 @@
:check_number {:type 'Int}
:name {:type 'String}
:bank_code {:type 'String}
:routing {:type 'String}
:bank_name {:type 'String}
:yodlee_account_id {:type 'Int}}}
:edit_user

27
src/clj/auto_ap/graphql/clients.clj
View File

@@ -8,7 +8,7 @@
":admin" :user-role/admin
":user" :user-role/user})
(defn edit-client [context {:keys [edit_client] :as args} value]
(defn edit-client [context {:keys [edit_client new_bank_accounts] :as args} value]
(assert-admin (:id context))
(println (:address edit_client))
(let [client (d-clients/get-by-id (:id edit_client))
@@ -16,6 +16,7 @@
#_#_clients-to-remove (->> (:user/clients user)
(map :db/id)
(filter #(not (new-clients %)) ))]
(println edit_client)
@(d/transact (d/connect uri)
@@ -23,15 +24,29 @@
(doto (-> [(remove-nils {:db/id (:db/id client)
:client/name (:name edit_client)
:client/email (:email edit_client)
:client/address (remove-nils
{
:client/locations (filter identity (:locations edit_client))
:client/address (remove-nils {
:address/street1 (:street1 (:address edit_client))
:address/street2 (:street2 (:address edit_client))
:address/city (:city (:address edit_client))
:address/state (:state (:address edit_client))
:address/zip (:zip (:address edit_client))
})
:address/zip (:zip (:address edit_client))})
:client/bank-accounts (map #(remove-nils
{:db/id (:id %)
:bank-account/bank-name (:bank_name %)
:bank-account/bank-code (:bank_code %)
:bank-account/routing (:routing %)
:bank-account/name (:name %)
:bank-account/number (:number %)
:bank-account/check-number (:check_number %)
:bank-account/yodlee-account-id (:yodlee_account_id %)
:bank-account/type :bank-account-type/check
}
) (:bank_accounts edit_client))
})]
#_(into (map (fn [c] [:db/retract (:db/id user) :user/clients c]) clients-to-remove)))
clojure.pprint/pprint))