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

        []
        adjudicator-infos))))

(defn make-panel-list-node [adjudicator-panels]
  (xml/element
    :PanelList
    {:Qty (count adjudicator-panels)}

            adjudicator-panels)
  ))

(defn- export-panel-list [db]
  (let [qr (d/q '[:find (pull ?id [{:adjudicator-panel/adjudicators
                                                            [:adjudicator/id]}])
                                          :where
                                          [?id :adjudicator-panel/id]] db)
        adjudicator-panels (reduce conj [] (map first qr))
        n (- 30 (count adjudicator-panels))
        padded-panels (repeat n {:adjudicator-panel/adjudicators []})
        all-panels (into adjudicator-panels padded-panels)]
    (make-panel-list-node all-panels)))

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