making client code visible again.

2019-01-28 09:20:50 -08:00
parent 294ac40930
commit 2d0b127b4a
6 changed files with 173 additions and 138 deletions
--- a/src/clj/auto_ap/datomic/migrate/add_client_codes.clj
+++ b/src/clj/auto_ap/datomic/migrate/add_client_codes.clj
@@ -38,8 +38,7 @@
                          :where ['[?e :client/name ?name]]}
                  :args [(d/db a)]})
        (reduce (fn [result [name id]]
-                  (conj result [:db/add id :client/code (name->code name)]))
-                [])
-
-        
-        )])
+                  (if (name->code name)
+                    (conj result [:db/add id :client/code (name->code name)])
+                    result))
+                []))])