allowing saving after saving.
This commit is contained in:
@@ -11,6 +11,7 @@
|
||||
[auto-ap.subs :as subs]))
|
||||
|
||||
(defn vendor-dialog [{:keys [vendor save-event change-event id] {:keys [name]} :vendor}]
|
||||
|
||||
(let [companies-by-id @(re-frame/subscribe [::subs/companies-by-id])]
|
||||
[action-modal {:id id
|
||||
:title [:span (if (:id vendor)
|
||||
@@ -23,7 +24,7 @@
|
||||
:save-event save-event
|
||||
:can-submit? (s/valid? ::entity/vendor vendor)}
|
||||
|
||||
(doto (s/explain ::entity/vendor vendor) println)
|
||||
|
||||
|
||||
[horizontal-field
|
||||
[:label.label "Name"]
|
||||
|
||||
Reference in New Issue
Block a user