should prevent bad error message from uploaded invoices.

2024-04-14 22:35:39 -07:00
parent 71b5b9864c
commit 38030637ba
5 changed files with 11 additions and 13 deletions
--- a/src/clj/auto_ap/jobs/sysco.clj
+++ b/src/clj/auto_ap/jobs/sysco.clj
@@ -134,7 +134,7 @@
                           (mapcat (fn [k]
                                     (try 
                                       (let [invoice-key (str "invoice-files/" (UUID/randomUUID) ".csv") ;
-                                             invoice-url (str "http://" (:data-bucket env) ".s3-website-us-east-1.amazonaws.com/" invoice-key)]
+                                             invoice-url (str "https://" (:data-bucket env) "/" invoice-key)]
                                         (s3/copy-object {:source-bucket-name      (:data-bucket env)
                                                          :destination-bucket-name (:data-bucket env)
                                                          :source-key              k