Add vendor pre-population for bulk code and individual edit forms
- Add vendor-changed HTMX handlers for both bulk code and individual edit - Pre-populate default account at 100% when vendor is selected and no accounts exist - Fix render-accounts-section to render from step-params correctly - Change bulk code vendor-changed from hx-get to hx-post to include form data - Add routes for vendor-changed endpoints - Update e2e tests to cover vendor pre-population - Run lein cljfmt fix across codebase
This commit is contained in:
@@ -18,7 +18,7 @@
|
||||
(javax.mail Session)
|
||||
(javax.mail.internet MimeMessage)))
|
||||
|
||||
(defn send-email-about-failed-message [mail-bucket mail-key message]
|
||||
(defn send-email-about-failed-message [mail-bucket mail-key message]
|
||||
(let [target-key (str "failed-emails/" mail-key ".eml")
|
||||
target-url (str "https://" (:data-bucket env) "/" target-key)]
|
||||
(alog/info ::sending-failure-email :who (:import-failure-destination-emails env))
|
||||
@@ -29,7 +29,6 @@
|
||||
:body {:html (str "<div>You can download the original email <a href=\"" target-url "\">here</a>.<p><pre>" message "</pre></p></div>")
|
||||
:text (str "<div>You can download the original email here: " target-url)}}})))
|
||||
|
||||
|
||||
(defn process-sqs []
|
||||
(alog/info ::fetching-sqs)
|
||||
(doseq [message (:messages (sqs/receive-message {:queue-url (:invoice-import-queue-url env)
|
||||
@@ -79,27 +78,20 @@
|
||||
(defn -main [& _]
|
||||
(execute "import-uploaded-invoices" process-sqs))
|
||||
|
||||
|
||||
(comment
|
||||
(comment
|
||||
(with-open [i (io/output-stream "/tmp/bryce.pdf")]
|
||||
(clojure.java.io/copy
|
||||
(clojure.java.io/copy
|
||||
(-> (s3/get-object :bucket-name (:data-bucket env)
|
||||
:key "invoice-files/f0e73dcb-e5e5-4c81-b82b-319b7caedacf.pdf"
|
||||
|
||||
)
|
||||
:key "invoice-files/f0e73dcb-e5e5-4c81-b82b-319b7caedacf.pdf")
|
||||
|
||||
:input-stream)
|
||||
i))
|
||||
|
||||
(parse/parse-file "/tmp/bryce.pdf" "/tmp/bryce.pdf")
|
||||
|
||||
|
||||
(-> (clojure.java.shell/sh "pdftotext" "-layout" "/tmp/bryce.pdf" "-")
|
||||
:out
|
||||
)
|
||||
(-> (clojure.java.shell/sh "pdftotext" "-layout" "/tmp/bryce.pdf" "-")
|
||||
:out)
|
||||
|
||||
|
||||
1
|
||||
|
||||
(user/init-repl)
|
||||
|
||||
)
|
||||
(user/init-repl))
|
||||
Reference in New Issue
Block a user