AE-1977: Save hallinto-oikeus attachment to object storage for osapuo…

…li when creating käskypäätös / varsinainen päätös toimenpide

etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj

@@ -241,6 +241,14 @@
  (filter #(contains? osapuolet-with-document (:id %)) osapuolet))
  osapuolet))
 
+(defn store-hallinto-oikeus-attachment! [db aws-s3-client valvonta-id toimenpide osapuoli]
+ (let [hallinto-oikeus-id (-> toimenpide
+ :type-specific-data
+ :osapuoli-specific-data
+ (type-specific-data/find-administrative-court-id-from-osapuoli-specific-data (:id osapuoli)))
+ attachment (hao-attachment/attachment-for-hallinto-oikeus-id db hallinto-oikeus-id)]
+ (store/store-hallinto-oikeus-attachment aws-s3-client valvonta-id (:id toimenpide) osapuoli attachment)))
+
 (defn log-toimenpide! [db aws-s3-client whoami valvonta toimenpide osapuolet ilmoituspaikat roolit]
  (let [request-id (request-id (:id valvonta) (:id toimenpide))
  sender-id (:email whoami)
@@ -254,6 +262,10 @@
  (let [document (generate-pdf-document db whoami valvonta toimenpide ilmoituspaikat
  osapuoli osapuolet roolit)]
  (store/store-document aws-s3-client (:id valvonta) (:id toimenpide) osapuoli document)
+
+ (when (toimenpide/kaskypaatos-varsinainen-paatos? toimenpide)
+ (store-hallinto-oikeus-attachment! db aws-s3-client (:id valvonta) toimenpide osapuoli))
+
  document)))))]
  (asha/log-toimenpide!
  sender-id

etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/store.clj

@@ -4,6 +4,7 @@
  [clojure.java.io :as io]))
 
 (def document-file-key-prefix "valvonta/kaytto")
+(def hallinto-oikeus-attachment-file-key-prefix "valvonta/kaytto/hallinto-oikeus-attachment")
 
 (defn- file-path [file-key-prefix valvonta-id toimenpide-id osapuoli]
  (cond
@@ -25,3 +26,11 @@
 
 (defn info-letter []
  (-> "pdf/Saate_rakennuksen_omistaja_su_ru.pdf" io/resource io/input-stream))
+
+(defn ^:dynamic store-hallinto-oikeus-attachment
+ "Store the hallinto-oikeus attachment of the käytönvalvonta toimenpide to the object storage"
+ [aws-s3-client valvonta-id toimenpide-id osapuoli document]
+ (file-service/upsert-file-from-bytes
+ aws-s3-client
+ (file-path hallinto-oikeus-attachment-file-key-prefix valvonta-id toimenpide-id osapuoli)
+ document))

etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_varsinainen_paatos_test.clj

@@ -9,13 +9,16 @@
  [solita.etp.schema.valvonta-kaytto :as valvonta-schema]
  [solita.etp.service.pdf :as pdf]
  [solita.etp.service.valvonta-kaytto :as valvonta-service]
+ [solita.etp.service.valvonta-kaytto.store :as file-store]
  [solita.etp.test-data.generators :as generators]
  [solita.etp.test-data.kayttaja :as test-kayttajat]
  [solita.etp.test-system :as ts])
  (:import (java.time Clock LocalDate ZoneId)))
 
 (t/use-fixtures :each ts/fixture)
 
+(def original-store-hallinto-oikeus-attachment file-store/store-hallinto-oikeus-attachment)
+
 (t/deftest kaskypaatos-varsinainen-paatos-test
  ;; Add the main user for the following tests
  (test-kayttajat/insert-virtu-paakayttaja!
@@ -39,6 +42,7 @@
  (.atStartOfDay (ZoneId/systemDefault))
  .toInstant)
  html->pdf-called? (atom false)
+ store-hallinto-oikeus-attachment-called? (atom false)
  ;; Add osapuoli to the valvonta
  osapuoli-id (valvonta-service/add-henkilo!
  ts/*db*
@@ -85,7 +89,11 @@
  time/timezone)
  #'pdf/html->pdf (partial html->pdf-with-assertion
  "documents/kaskypaatos-varsinainen-paatos-yksityishenkilo.html"
- html->pdf-called?)}
+ html->pdf-called?)
+ #'file-store/store-hallinto-oikeus-attachment
+ (fn [aws-s3-client valvonta-id toimenpide-id osapuoli document]
+ (reset! store-hallinto-oikeus-attachment-called? true)
+ (original-store-hallinto-oikeus-attachment aws-s3-client valvonta-id toimenpide-id osapuoli document))}
  (let [new-toimenpide {:type-id 8
  :deadline-date (str (LocalDate/of 2023 10 4))
  :template-id 6
@@ -107,6 +115,7 @@
  (test-kayttajat/with-virtu-user)
  (mock/header "Accept" "application/json")))]
  (t/is (true? @html->pdf-called?))
+ (t/is (true? @store-hallinto-oikeus-attachment-called?))
  (t/is (= (:status response) 201))))
 
  (t/testing "Created document can be downloaded through the api"