                        (let [ee (.-target e)]
                          ;;;(redirect-to-root-when-not-transit ee)
                          (when-not (.isSuccess ee)
-                           (print-error "COMPLETE" ee))
+                           (print-error "COMPLETE" ee true))
 
                          ;; Скрыть элемент прогресса выполнения
                          (when progress-element

                           (catch js/Error e
                             (let [m (str "Ошибка сохранения: " e)]
                               (println m)
                               (print-error "ERRON IN REQUEST SUCCESS" ee)))))))
      (.send req
             uri
             "POST"



(defn get-data [uri params success-fn & [error-fn complete-fn disable-progress-element?]]
  (letfn [(print-error [s ee show-alert]            
            (println "ERROR IN " s "\n"
                     "LastErrorCode: " (.getLastErrorCode ee) "\n"
                     "Status: " (.getStatus ee) " - " (.getStatusText ee) "\n"
