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

improving problems.

Browse Source
This commit is contained in:
Bryce Covert
2018-07-23 13:53:23 -07:00
parent dbb5e8b40c
commit aacd660199
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
View File

@@ -345,8 +345,8 @@
(fn [db [_ index]]
(update-in db [::change-expense-accounts :invoice :expense-accounts]
(fn [expense-accounts]
(concat (take index expense-accounts)
(drop (inc index) expense-accounts))))))
(vec (concat (take index expense-accounts)
(drop (inc index) expense-accounts)))))))
(defn change-expense-accounts-modal []
(let [{{:keys [expense-accounts total ] :or {expense-accounts [] total 0} {:keys [locations]} :company} :invoice :as data} @(re-frame/subscribe [::change-expense-accounts])
@@ -378,7 +378,7 @@
[:tbody
(for [[expense-account index] (map vector expense-accounts (range))]
[:tr
[:td [:div.control
[:td.expandable [:div.control
[bind-field
[typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/chooseable-expense-accounts]))
:type "typeahead"