                    (cron/schedule
                     (cron/cron-schedule cron-string))))]
     (scheduler/schedule scheduler job trigger)
-    (println "Scheduler is running")))
+    (log/info "Scheduler for" domain "is running with schedule" cron-string)))
 
 (defn init-start-jobs [scheduler db-conn]
+  (log/info "Starting the initial schedulers")
   (let [db (d/db db-conn)]
     (doseq [{:keys [team/domain team/schedule]}
             (d/q '[:find [(pull ?team [:team/domain :team/schedule]) ...]
                    :where
                    [?team :team/domain]]
                  db)]
-      (println "Scheduling" domain schedule)
-      (schedule-questionnaire-job scheduler
-                                   db-conn
-                                   domain
-                                   schedule))) )
+      (if schedule
+        (do (log/info "Scheduling" domain "with schedule" schedule)
+            (schedule-questionnaire-job scheduler
+                                        db-conn
+                                        domain
+                                        schedule))
+        (do (log/info "Skipping scheduling for" domain))))))
 
 (defn schedule-new [schduler db-before db-after]
   (let [new-domains (d/q '[:find [?new-domains ...]

              :answer/text (:answer answer)
              :answer/ts (:ts answer)
              :question/_answers (:question-id answer)})]
    (prn tx)
    @(d/transact db-conn tx)))

(defjob QuestionnaireJob [job-data]
  (let [{:strs [domain db-conn]} (conversion/from-job-data job-data)
        db (d/db db-conn)
        token (:team/token (d/entity db [:team/domain domain]))
        users (d/q '[:find [?name ...]

                      :answer (:text (async/<!! answer-chan))}))
             []
             questions)]
    (log/infof "Questionnaire completed for %s. %s questions answered" username (count qas))
    (async/unsub dm-pub username answer-chan)
    (async/close! answer-chan)
    qas))


(defn submit-answers [db-conn domain user answers]
  (log/infof "Submitting % answers to %s for %s" (count answers) domain user)
  (let [db (d/db db-conn)
        user-eid (d/q '[:find ?member .
                        :in $ ?domain ?user
