notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixing url.

Browse Source
This commit is contained in:
Bryce Covert
2022-01-13 08:37:56 -08:00
parent d6211c778b
commit 0d09a3f702
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/background/sysco.clj
View File

@@ -127,7 +127,7 @@
(mapcat (fn [k] (mapcat (fn [k]
(try (try
(let [invoice-key (str "invoice-files/" (UUID/randomUUID) ".csv") (let [invoice-key (str "invoice-files/" (UUID/randomUUID) ".csv")
invoice-url (str "https://" (:data-bucket env) "/" invoice-key)] invoice-url (str "https://" (:data-bucket env) ".s3-website-us-east-1.amazonaws.com/" invoice-key)]
(s3/copy-object {:source-bucket-name (:data-bucket env) (s3/copy-object {:source-bucket-name (:data-bucket env)
:destination-bucket-name (:data-bucket env) :destination-bucket-name (:data-bucket env)
:source-key k :source-key k

4
src/clj/auto_ap/routes/invoices.clj
View File

@@ -416,7 +416,9 @@
:client-override client :client-override client
:location-override location :location-override location
:vendor-override vendor :vendor-override vendor
:source-url (str "https://" (:data-bucket env) "/" s3-location))))] :source-url (str "https://" (:data-bucket env)
".s3-website-us-east-1.amazonaws.com/"
s3-location))))]
(import-uploaded-invoice user imports)) (import-uploaded-invoice user imports))
{:status 200 {:status 200
:body (pr-str {}) :body (pr-str {})