starting to add relationships.

src/clj/auto_ap/db/vendors.clj

@@ -24,6 +24,7 @@
                     (helpers/merge-where [:= :id id])))))
 
 (defn upsert [id data]
+  (println data)
   (-> (sql/build
        :update :vendors
        :set (unparse data)

src/cljs/auto_ap/subs.cljs

@@ -14,6 +14,12 @@
    (when (:user db)
      (vals (:companies db)))))
 
+(re-frame/reg-sub
+ ::companies-by-id
+ (fn [db]
+   (when (:user db)
+     (:companies db))))
+
 (re-frame/reg-sub
  ::menu
  (fn [db]

src/cljs/auto_ap/views/pages/admin/vendors.cljs

@@ -51,7 +51,9 @@
 
 
 (defn edit-dialog []
-  (let [editing-vendor (:vendor @(re-frame/subscribe [::subs/admin]))]
+  (let [editing-vendor (:vendor @(re-frame/subscribe [::subs/admin]))
+        companies-by-id @(re-frame/subscribe [::subs/companies-by-id])]
+   
     [:div.modal.is-active
      [:div.modal-background {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]
      
@@ -262,13 +264,13 @@
         [:ul
          (for [[i r] (map vector (range) (:relationships editing-vendor))]
            ^{:key i}
-           [:li (:account-number r)
-            (:company-id r)
+           [:li
+            (:name (companies-by-id (js/parseInt (:company-id r)))) ": "
+            (:account-number r)
             [:a
              {:on-click (dispatch-event [::events/remove-relationship i])}
              [:span.icon
-              [:i.fa.fa-times]]]]
-           )]] 
+              [:i.fa.fa-times]]]])]] 
        
        
        (when (:saving? editing-vendor) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]