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

allows adding

Browse Source
This commit is contained in:
Bryce Covert
2018-08-05 19:51:18 -07:00
parent a9d8bf21f9
commit 2e8a7b4648
8 changed files with 183 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/clj/auto_ap/routes/companies.clj
View File

@@ -15,10 +15,19 @@
:body (pr-str (filter #(can-see-company? (:identity r) (:id %)) (companies/get-all)))
:headers {"Content-Type" "application/edn"}})
(wrap-spec
(PUT "/:id" {:keys [edn-params] {:keys [id]} :route-params :as r}
(PUT "/:id" {{:keys [address email locations new-bank-accounts]} :edn-params :keys [edn-params] {:keys [id ]} :route-params :as r}
(assert-can-see-company (:identity r) id)
{:status 200
:body (pr-str (companies/upsert id edn-params))
:headers {"Content-Type" "application/edn"}})
(let [id (Integer/parseInt id)
company (companies/get-by-id id)
updated-company (merge company {:address address
:email email
:locations locations})]
(companies/upsert id updated-company)
(doseq [bank-account new-bank-accounts]
(companies/add-bank-account id bank-account))
{:status 200
:body (pr-str (companies/get-by-id id))
:headers {"Content-Type" "application/edn"}}))
::entity/company))
wrap-secure))