     (d/transact! conn [(uidb/sanitize data)])
     (d/db conn)))
 
-(defn- export-dance-perfect [db]
+(defn- old-export-dance-perfect [db]
   (xml/element
       :DancePerfect
       {:Version "4.1"}
-      [(export-adj-panel-list db)
-       (export-panel-list db)]
+      [(old-export-adj-panel-list db)
+       (old-export-panel-list db)]
       ))
 
-(defn export [data]
+(defn old-export [data]
   (let [db (get-db data)]
-    (export-dance-perfect db) ;; TODO: def queries in file and pass in query result
+    (old-export-dance-perfect db) ;; TODO: def queries in file and pass in query result
     ))
 
 (xml/indent-str
-  (export u/expected-small-example))
+  (old-export u/expected-small-example))
 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AdjPanelList/AdjList
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn- make-adjudicator-node [adjudicator-info]
  (let [name (:adjudicator/name adjudicator-info)
        id (:adjudicator/id adjudicator-info)
        country (:adjudicator/country adjudicator-info)]

        n (- 30 (count adjudicator-panels))
        padded-panels (repeat n {:adjudicator-panel/adjudicators []})
        all-panels (into adjudicator-panels padded-panels)]
    (old-make-panel-list-node all-panels)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AdjPanelList
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn- old-export-adj-panel-list [db]
  (xml/element
    :AdjPanelList
    {}
    (old-export-adj-list db)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utils
