Fixes some minor bugs

2023-05-22 12:28:09 -07:00
parent 780d1b6d4d
commit c78b3719c1
2 changed files with 2 additions and 3 deletions
--- a/src/clj/auto_ap/graphql/invoices.clj
+++ b/src/clj/auto_ap/graphql/invoices.clj
@@ -60,8 +60,7 @@
  (assert-power-user (:id context))
  (doseq [i invoices]
    (assert-can-see-client (:id context) (:db/id (:invoice/client (dc/pull (dc/db conn) [{:invoice/client [:db/id]}]  i)))))
-  (let [transactions (mapcat (fn [i] [[:db/retractEntity i]
-                                      [:db/retractEntity [:journal-entry/original-invoice i]]])
+  (let [transactions (mapcat (fn [i] [[:db/retractEntity i]])
                             invoices)]
    (audit-transact transactions (:id context))
    invoices))