fixes double click import ledger bug

src/clj/user.clj

@@ -377,6 +377,14 @@
                                         '[(= ?ad true)]]}
                         :args [i (d/history (d/db (d/connect uri)))]}))))
 
+(defn entity-history-with-revert [i]
+  (vec (sort-by first (d/query
+                       {:query {:find ['?tx '?z '?v '?ad ]
+                                :in ['?i '$]
+                                :where ['[?i ?a ?v ?tx ?ad]
+                                        '[?a :db/ident ?z]]}
+                        :args [i (d/history (d/db (d/connect uri)))]}))))
+
 (defn tx-detail [i]
   (map (juxt :e #(d/ident (d/db (d/connect uri)) (:a %)) :v)
        (:data (first