                        (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"

                     "---------------------------------------------------------\n"
                     (.getResponseText ee)
                     "\n---------------------------------------------------------\n\n")
            (when show-alert
              (js/alert (str
                         "ERROR IN [" s "]\n"
                         "Status: " (.getStatus ee) " - " (.getStatusText ee)))))

          ;; (redirect-to-root-when-not-transit [ee]
          ;;   (let [ct (.getResponseHeader ee "Content-Type")]
