various fixes.

src/clj/auto_ap/graphql/ledger.clj

@@ -29,7 +29,8 @@
    [com.brunobonacci.mulog :as mu]
    [datomic.api :as dc]
    [iol-ion.tx :refer [random-tempid]]
-   [auto-ap.solr :as solr])
+   [auto-ap.solr :as solr]
+   [auto-ap.logging :as alog])
   (:import
    (org.apache.commons.codec.binary Base64)))
 
@@ -341,11 +342,15 @@
   (let [_ (assert-admin (:id context))
         args (assoc args :clients (:clients context))
         ids (some-> (:filters args)
+                    (assoc :clients (:clients context))
                     (assoc :only-external true)
                     (<-graphql)
                     (assoc :per-page Integer/MAX_VALUE)
                     (#(l/raw-graphql-ids (dc/db conn) %))
                     :ids)
+        _ (alog/info ::trying-to-delete
+            :count (count ids)
+            :sample (take 3 ids))
         specific-ids (l/filter-ids (:ids args))
         all-ids (all-ids-not-locked (into (set ids) specific-ids))]
     (if (> (count all-ids) 1000)