trying a fix.
This commit is contained in:
@@ -258,7 +258,7 @@
|
|||||||
:check (str (+ index (:bank-account/check-number bank-account)))
|
:check (str (+ index (:bank-account/check-number bank-account)))
|
||||||
:memo memo
|
:memo memo
|
||||||
:date (date->str (local-now))
|
:date (date->str (local-now))
|
||||||
:client (dissoc client :client/bank-accounts :client/locked-until :client/emails)
|
:client (dissoc client :client/bank-accounts :client/locked-until :client/emails :client/square-auth-token :client/square-locations)
|
||||||
:bank-account (dissoc bank-account :bank-account/start-date)
|
:bank-account (dissoc bank-account :bank-account/start-date)
|
||||||
#_#_:client {:name (:name client)
|
#_#_:client {:name (:name client)
|
||||||
:address (:address client)
|
:address (:address client)
|
||||||
|
|||||||
@@ -46,7 +46,7 @@
|
|||||||
(let [jwt (jwt/sign {:user (:name profile)
|
(let [jwt (jwt/sign {:user (:name profile)
|
||||||
:exp (time/plus (time/now) (time/days 30))
|
:exp (time/plus (time/now) (time/days 30))
|
||||||
:user/clients (map (fn [c]
|
:user/clients (map (fn [c]
|
||||||
(dissoc c :client/bank-accounts :client/location-matches :client/forecasted-transactions :client/matches :client/week-a-debits :client/week-a-credits :client/week-b-debits :client/week-b-credits :client/signature-file :client/address :client/emails))
|
(dissoc c :client/bank-accounts :client/location-matches :client/forecasted-transactions :client/matches :client/week-a-debits :client/week-a-credits :client/week-b-debits :client/week-b-credits :client/signature-file :client/address :client/emails :client/square-auth-token :client/square-locations))
|
||||||
(:user/clients user))
|
(:user/clients user))
|
||||||
:user/role (name (:user/role user))
|
:user/role (name (:user/role user))
|
||||||
:user/name (:name profile)}
|
:user/name (:name profile)}
|
||||||
|
|||||||
Reference in New Issue
Block a user