                     ;(reload-job-list request)
                     (send-response request))
                 (-> (error-response (or job-name "not set!") "update" "invalid input")
-                    (send-response request)))
+                    (send-error-response request)))
             (-> (job-does-not-exist-response job-name "update")
-                (send-response request)))))
+                (send-error-response request)))))
 
 (defn get-jobs
     [request]

                (reload-job-list request)
                (send-response request))
            (-> (job-does-not-exist-response job-name "enable")
                (send-response request)))))

(defn disable-job
    [request]

                (reload-job-list request)
                (send-response request))
            (-> (job-does-not-exist-response job-name "delete")
                (send-error-response request)))))

(defn create-job
    [request]
