Fixed bug in attempt to use sqb registration info.

This commit is contained in:
John Wiseman 2020-01-01 21:08:57 -08:00
parent 61cc57fe4f
commit 2099bac9bf

View File

@ -315,7 +315,7 @@
info (cond-> (-> ac (dissoc :history :type) (merge rev-props)) info (cond-> (-> ac (dissoc :history :type) (merge rev-props))
(:Type sqb) (:Type sqb)
(assoc :type (:Type sqb)) (assoc :type (:Type sqb))
(as-> rec (and (nil? (:registration rec)) (:Registration sqb))) (and (nil? (:registration ac)) (:Registration sqb))
(assoc :registration (:Registration sqb)) (assoc :registration (:Registration sqb))
(:military? ac) (:military? ac)
(-> (assoc :militaryregistration (:registration ac) (-> (assoc :militaryregistration (:registration ac)