                            (let [r (t/read r (.getResponseText ee))]
                              (make-reload-if-reload-client r)
                              (when success-fn (success-fn r)))
-                           (catch js/Error e                             
+                           (catch js/Error e
                              (println (str "ERR 1 " e))
                              (print-error "ERRON IN REQUEST SUCCESS" ee false))))))
 

                     (fn [e]
                       (print "REQUEST ERROR")
                       (let [ee (.-target e)]
                         
                         (try
                           (make-reload-if-reload-client (t/read r (.getResponseText ee)))
                           (catch js/Error e
                             (println "ERR -1 " e)))
                         
                         (print-error "ERROR" ee false)
                         
                         (when error-fn
                           (let [rt (.getResponseText ee)]
                             (try




(defn get-data [uri params success-fn & [error-fn complete-fn disable-progress-element? my-error-alert-fn]]
  (letfn [(get-response-as-transit-or-text [ee]
            (try
              (t/read r (.getResponseText ee))
