   (println)
   (println "Importing from ABACUS")
   (println)
-  (println "Ready: " (count ready-productions))
-  (println (string/join ", " (map :id ready-productions)))
-  (println)
-  (println "Archived: " (count archived-productions))
+  (println "Ready: " (count (ready-productions all-productions)))
+  (println (string/join ", " (map :id (ready-productions all-productions))))
+  (println)
+  (println "Archived: " (count (archived-productions all-productions)))
   (println)
   (println "Recording with no wav and a struct.html: " (count recording-productions-with-struct))
   (println (string/join ", " (map :id recording-productions-with-struct)))

  (println )
  (println "Importing commercial audio books")
  (println)
)

  [{id :id}]
  (get all-files-by-id id))

(defn ready-productions
  "All productions with state \"ready\""
  [productions]
  (filter #(= (:state %) "ready") productions))

(defn create-ready-productions!
  "Create all productions with state \"ready\""
  []
  (doseq [p (ready-productions all-productions)]
    (-> p prod/create!)))

(defn archived-productions
  "All productions with state \"archived\""
  [productions]
  (filter #(= (:state %) "archived") productions))

(defn create-archived-productions!
  "Create all productions with state \"archived\""
  []
  (->> (archived-productions all-productions)
       (map #(assoc % :state "archived"))
       (map prod/add-default-meta-data)
       (apply jdbc/insert! db :production)))
