merged.

src/clj/auto_ap/graphql/transactions.clj

@@ -28,7 +28,8 @@
    [clojure.string :as str]
    [clojure.tools.logging :as log]
    [datomic.client.api :as dc]
-   [iol-ion.tx :refer [random-tempid upsert-entity]]))
+   [iol-ion.tx :refer [random-tempid upsert-entity]]
+   [com.brunobonacci.mulog :as mu]))
 
 (def approval-status->graphql (ident->enum-f :transaction/approval-status))
 
@@ -453,6 +454,7 @@
         approval-status->graphql
         ->graphql)))
 
+;; TODO autopay and unpaid are basically the exact same. Migrate to one call
 (defn match-transaction-unpaid-invoices [context {:keys [transaction_id unpaid_invoice_ids]} _]
   (let [_ (assert-power-user (:id context))
         transaction (d-transactions/get-by-id transaction_id)
@@ -501,6 +503,7 @@
 
                           
                           transaction_ids)
+        _ (mu/log ::here :txids transaction_ids)
         transaction_ids (all-ids-not-locked transaction_ids)
         transactions (transduce
                       (comp