notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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]] (fn [db [_ index]]
(update-in db [::change-expense-accounts :invoice :expense-accounts] (update-in db [::change-expense-accounts :invoice :expense-accounts]
(fn [expense-accounts] (fn [expense-accounts]
(concat (take index expense-accounts) (vec (concat (take index expense-accounts)
(drop (inc index) expense-accounts)))))) (drop (inc index) expense-accounts)))))))
(defn change-expense-accounts-modal [] (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]) (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 [:tbody
(for [[expense-account index] (map vector expense-accounts (range))] (for [[expense-account index] (map vector expense-accounts (range))]
[:tr [:tr
[:td [:div.control [:td.expandable [:div.control
[bind-field [bind-field
[typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/chooseable-expense-accounts])) [typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/chooseable-expense-accounts]))
:type "typeahead" :type "typeahead"