One more set of fixes for new approach.

2023-01-11 15:32:08 -08:00
parent b096863842
commit 9615350eb9
3 changed files with 12 additions and 4 deletions
--- a/src/clj/auto_ap/ssr/admin.clj
+++ b/src/clj/auto_ap/ssr/admin.clj
@@ -158,7 +158,9 @@
            request)
  (try
    (let [entity-id (Long/parseLong (or (some-> (:entity-id form-params) not-empty)
-                                        (:entity-id params)))
+                                        (:entity-id params)
+                                        (get params "entity-id")
+                                        (get form-params "entity-id")))
          history (->> 
                   (d/q '[:find ?a2 ?v (pull ?tx [:db/txInstant :audit/user :db/id]) ?ad 
                          :in $ $$ ?i