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

Allows users to self set up square

Browse Source
This commit is contained in:
Bryce Covert
2022-04-06 08:22:52 -07:00
parent 982a0f3bed
commit 3a49ba971c
9 changed files with 303 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/cljs/auto_ap/views/pages/admin/clients/form.cljs
View File

@@ -108,6 +108,12 @@
:name (:name new-client-data)
:code (:code new-client-data) ;; TODO add validation can't change
:emails (:emails new-client-data)
:square-auth-token (:square-auth-token new-client-data)
:square-locations (map
(fn [x]
{:id (:id x)
:client-location (:client-location x)})
(:square-locations new-client-data))
:locked-until (cond (not (:locked-until new-client-data))
nil
@@ -654,5 +660,24 @@
:style {:width "7em"}
:field [:amount]
:step "0.01"}]]}])]]
(field "Square Authentication Token"
[:input.input {:type "text"
:field [:square-auth-token]}])
[:div.field
[:label.label "Square Locations"]
[:div.control
(raw-field
[multi-field {:type "multi-field"
:field :square-locations
:template [[:input.input {:type "text"
:style {:width "15em"}
:disabled true
:field [:name]}]
[:input.input {:type "text"
:style {:width "4em"}
:field [:client-location]
:step "0.01"}]]
:disable-remove? true
:disable-new? true}])]]
(error-notification)
(submit-button "Save")])]]))