diff --git a/etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj b/etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj index b5c27970b..a516c7c40 100644 --- a/etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj +++ b/etp-backend/src/main/clj/solita/etp/schema/valvonta_kaytto.clj @@ -53,12 +53,15 @@ (def OsapuoliType (schema/enum henkilo yritys)) +(def OsapuoliSpecificDataOsapuoli + {:id common-schema/Key + :type OsapuoliType}) + (def KaskypaatosVarsinainenPaatosOsapuoliSpecificData (schema/conditional ;; Osapuoli has a document and has answered to kuulemiskirje, so all fields are required (every-pred toimenpide/osapuoli-has-document? toimenpide/recipient-answered?) - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType + {:osapuoli OsapuoliSpecificDataOsapuoli :hallinto-oikeus-id HallintoOikeusId :document schema/Bool :recipient-answered schema/Bool @@ -69,17 +72,15 @@ ;; Osapuoli has document but has not answered to kuulemiskirje, so answer and statement are not allowed toimenpide/osapuoli-has-document? - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType + {:osapuoli OsapuoliSpecificDataOsapuoli :hallinto-oikeus-id HallintoOikeusId :document schema/Bool :recipient-answered schema/Bool} ;; Osapuoli has no document so no other fields are allowed :else - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType - :document schema/Bool})) + {:osapuoli OsapuoliSpecificDataOsapuoli + :document schema/Bool})) (def KaskypaatosVarsinainenPaatosData {:fine common-schema/NonNegative :osapuoli-specific-data [KaskypaatosVarsinainenPaatosOsapuoliSpecificData] @@ -90,16 +91,14 @@ (def KaskypaatosTiedoksiantoHaastemiesOsapuoliSpecificData (schema/conditional toimenpide/osapuoli-has-document? - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType + {:osapuoli OsapuoliSpecificDataOsapuoli :karajaoikeus-id KarajaoikeusId :haastemies-email common-schema/Email :document schema/Bool} :else - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType - :document schema/Bool})) + {:osapuoli OsapuoliSpecificDataOsapuoli + :document schema/Bool})) (def KaskypaatosTiedoksiantoHaastemiesData {:osapuoli-specific-data [KaskypaatosTiedoksiantoHaastemiesOsapuoliSpecificData]}) @@ -111,8 +110,7 @@ ;; Osapuoli has a document so all fields are required to have values ;; answer-commentary fields are optional but if present, values are required toimenpide/osapuoli-has-document? - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType + {:osapuoli OsapuoliSpecificDataOsapuoli :hallinto-oikeus-id HallintoOikeusId :document schema/Bool :recipient-answered schema/Bool @@ -123,9 +121,8 @@ ;; Osapuoli has no document so no other fields are allowed :else - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType - :document schema/Bool})) + {:osapuoli OsapuoliSpecificDataOsapuoli + :document schema/Bool})) (def SakkopaatosVarsinainenPaatosData {:fine common-schema/NonNegative :osapuoli-specific-data [SakkopaatosVarsinainenPaatosOsapuoliSpecificData] @@ -136,16 +133,14 @@ (def SakkopaatosTiedoksiantoHaastemiesOsapuoliSpecificData (schema/conditional toimenpide/osapuoli-has-document? - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType + {:osapuoli OsapuoliSpecificDataOsapuoli :karajaoikeus-id KarajaoikeusId :haastemies-email common-schema/Email :document schema/Bool} :else - {:osapuoli-id common-schema/Key - :osapuoli-type OsapuoliType - :document schema/Bool})) + {:osapuoli OsapuoliSpecificDataOsapuoli + :document schema/Bool})) (def SakkopaatosTiedoksiantoHaastemiesData {:osapuoli-specific-data [SakkopaatosTiedoksiantoHaastemiesOsapuoliSpecificData]}) diff --git a/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj b/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj index 989961b88..0d5323ff3 100644 --- a/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj +++ b/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/asha.clj @@ -93,8 +93,8 @@ :tyyppikohtaiset-tiedot (type-specific-data/format-type-specific-data db toimenpide - (:id osapuoli) - (osapuoli/osapuoli->osapuoli-type osapuoli)) + {:id (:id osapuoli) + :type (osapuoli/osapuoli->osapuoli-type osapuoli)}) :aiemmat-toimenpiteet (previous-toimenpide/formatted-previous-toimenpide-data db toimenpide (:id valvonta))}) (defn- request-id [valvonta-id toimenpide-id] @@ -254,9 +254,9 @@ :type-specific-data :osapuoli-specific-data (filter toimenpide/osapuoli-has-document?) - (map #(select-keys % [:osapuoli-id :osapuoli-type]))) - henkilo-osapuolet-with-documents (map :osapuoli-id (filter #(= (:osapuoli-type %) vk-schema/henkilo) osapuolet-with-document)) - yritys-osapuolet-with-documents (map :osapuoli-id (filter #(= (:osapuoli-type %) vk-schema/yritys) osapuolet-with-document))] + (map :osapuoli)) + henkilo-osapuolet-with-documents (map :id (filter #(= (:type %) vk-schema/henkilo) osapuolet-with-document)) + yritys-osapuolet-with-documents (map :id (filter #(= (:type %) vk-schema/yritys) osapuolet-with-document))] (concat (filter #(contains? (set henkilo-osapuolet-with-documents) (:id %)) (filter osapuoli/henkilo? osapuolet)) (filter #(contains? (set yritys-osapuolet-with-documents) (:id %)) (filter osapuoli/yritys? osapuolet)))) @@ -267,7 +267,8 @@ hallinto-oikeus-id (-> toimenpide :type-specific-data :osapuoli-specific-data - (type-specific-data/find-administrative-court-id-from-osapuoli-specific-data (:id osapuoli) osapuoli-type)) + (type-specific-data/find-administrative-court-id-from-osapuoli-specific-data {:id (:id osapuoli) + :type osapuoli-type})) 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) attachment)) diff --git a/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj b/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj index 6c8eff8bc..0ef72295e 100644 --- a/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj +++ b/etp-backend/src/main/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data.clj @@ -7,12 +7,12 @@ (db/require-queries 'karajaoikeus) (defmulti format-type-specific-data - (fn [_db toimenpide _osapuoli-id _osapuoli-type] (-> toimenpide :type-id toimenpide/type-key))) + (fn [_db toimenpide _osapuoli] (-> toimenpide :type-id toimenpide/type-key))) -(defn- find-value-from-osapuoli-specific-data [key osapuoli-specific-data osapuoli-id osapuoli-type] +(defn- find-value-from-osapuoli-specific-data [key osapuoli-specific-data osapuoli] (->> osapuoli-specific-data - (filter #(= ((juxt :osapuoli-id :osapuoli-type) %) - [osapuoli-id osapuoli-type])) + (filter #(= (:osapuoli %) + osapuoli)) first key)) @@ -28,22 +28,22 @@ (exception/throw-ex-info! {:message (str "Unknown hallinto-oikeus-id: " hallinto-oikeus-id)}))) -(defn format-actual-decision-data [db toimenpide osapuoli-id osapuoli-type] +(defn format-actual-decision-data [db toimenpide osapuoli] (let [recipient-answered? (-> toimenpide :type-specific-data :osapuoli-specific-data - (find-recipient-answered-from-osapuoli-specific-data osapuoli-id osapuoli-type)) + (find-recipient-answered-from-osapuoli-specific-data osapuoli)) hallinto-oikeus-strings (hallinto-oikeus-id->formatted-strings db (-> toimenpide :type-specific-data :osapuoli-specific-data - (find-administrative-court-id-from-osapuoli-specific-data osapuoli-id osapuoli-type)))] + (find-administrative-court-id-from-osapuoli-specific-data osapuoli)))] {:recipient-answered recipient-answered? :vastaus-fi (let [answer-commentary (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :answer-commentary-fi) osapuoli-id osapuoli-type)) + ((partial find-value-from-osapuoli-specific-data :answer-commentary-fi) osapuoli)) recipient-answered-string (if recipient-answered? "Asianosainen antoi vastineen kuulemiskirjeeseen. " "Asianosainen ei vastannut kuulemiskirjeeseen. ")] @@ -51,7 +51,7 @@ :vastaus-sv (let [answer-commentary (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :answer-commentary-sv) osapuoli-id osapuoli-type)) + ((partial find-value-from-osapuoli-specific-data :answer-commentary-sv) osapuoli)) recipient-answered-string (if recipient-answered? "gav ett bemötande till brevet om hörande. " "svarade inte på brevet om hörande. ")] @@ -62,41 +62,41 @@ :statement-fi (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :statement-fi) osapuoli-id osapuoli-type)) + ((partial find-value-from-osapuoli-specific-data :statement-fi) osapuoli)) :statement-sv (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :statement-sv) osapuoli-id osapuoli-type)) + ((partial find-value-from-osapuoli-specific-data :statement-sv) osapuoli)) :department-head-name (-> toimenpide :type-specific-data :department-head-name) :department-head-title-fi (-> toimenpide :type-specific-data :department-head-title-fi) :department-head-title-sv (-> toimenpide :type-specific-data :department-head-title-sv)})) -(defmethod format-type-specific-data :decision-order-actual-decision [db toimenpide osapuoli-id osapuoli-type] - (format-actual-decision-data db toimenpide osapuoli-id osapuoli-type)) +(defmethod format-type-specific-data :decision-order-actual-decision [db toimenpide osapuoli] + (format-actual-decision-data db toimenpide osapuoli)) -(defmethod format-type-specific-data :penalty-decision-actual-decision [db toimenpide osapuoli-id osapuoli-type] - (format-actual-decision-data db toimenpide osapuoli-id osapuoli-type)) +(defmethod format-type-specific-data :penalty-decision-actual-decision [db toimenpide osapuoli] + (format-actual-decision-data db toimenpide osapuoli)) (defn- karajaoikeus-id->name [db id] (first (karajaoikeus-db/find-karajaoikeus-name-by-id db {:karajaoikeus-id id}))) -(defn- format-notice-bailiff [db toimenpide osapuoli-id osapuoli-type] +(defn- format-notice-bailiff [db toimenpide osapuoli] (let [karajaoikeus-id (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :karajaoikeus-id) osapuoli-id osapuoli-type)) + ((partial find-value-from-osapuoli-specific-data :karajaoikeus-id) osapuoli)) haastemies-email (-> toimenpide :type-specific-data :osapuoli-specific-data - ((partial find-value-from-osapuoli-specific-data :haastemies-email) osapuoli-id osapuoli-type))] + ((partial find-value-from-osapuoli-specific-data :haastemies-email) osapuoli))] {:karajaoikeus (karajaoikeus-id->name db karajaoikeus-id) :haastemies-email haastemies-email})) -(defmethod format-type-specific-data :decision-order-notice-bailiff [db toimenpide osapuoli-id osapuoli-type] - (format-notice-bailiff db toimenpide osapuoli-id osapuoli-type)) +(defmethod format-type-specific-data :decision-order-notice-bailiff [db toimenpide osapuoli] + (format-notice-bailiff db toimenpide osapuoli)) -(defmethod format-type-specific-data :penalty-decision-notice-bailiff [db toimenpide osapuoli-id osapuoli-type] - (format-notice-bailiff db toimenpide osapuoli-id osapuoli-type)) +(defmethod format-type-specific-data :penalty-decision-notice-bailiff [db toimenpide osapuoli] + (format-notice-bailiff db toimenpide osapuoli)) -(defmethod format-type-specific-data :default [_ toimenpide _ _] +(defmethod format-type-specific-data :default [_ toimenpide _] (:type-specific-data toimenpide)) diff --git a/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/asha_test.clj b/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/asha_test.clj index f0976f3f9..a23b303a9 100644 --- a/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/asha_test.clj +++ b/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/asha_test.clj @@ -51,12 +51,12 @@ {:department-head-title-fi "Apulaisjohtaja" :department-head-name "Yli Päällikkö" :osapuoli-specific-data [{:hallinto-oikeus-id 1 - :osapuoli-id 2 - :osapuoli-type "henkilo" + :osapuoli {:id 2 + :type "henkilo"} :document true} - {:osapuoli-id 3 - :osapuoli-type "henkilo" - :document false}] + {:osapuoli {:id 3 + :type "henkilo"} + :document false}] :recipient-answered true :statement-sv "Han vet inte. Vi förlotar." :statement-fi "Tämän kerran annetaan anteeksi kun hän ei tiennyt." @@ -119,12 +119,12 @@ (t/is (= (asha/remove-osapuolet-with-no-document {:type-id 8 :type-specific-data {:osapuoli-specific-data [{:hallinto-oikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "henkilo" + :osapuoli {:id 1 + :type "henkilo"} :document true} {:hallinto-oikeus-id 3 - :osapuoli-id 1 - :osapuoli-type "yritys" + :osapuoli {:id 1 + :type "yritys"} :document false}]}} osapuolet) [{:toimitustapa-description nil, @@ -148,12 +148,12 @@ (t/is (= (asha/remove-osapuolet-with-no-document {:type-id 8 :type-specific-data {:osapuoli-specific-data [{:hallinto-oikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "henkilo" + :osapuoli {:id 1 + :type "henkilo"} :document false} {:hallinto-oikeus-id 3 - :osapuoli-id 1 - :osapuoli-type "yritys" + :osapuoli {:id 1 + :type "yritys"} :document true}]}} osapuolet) [{:toimitustapa-description nil, @@ -176,12 +176,12 @@ (t/is (= (asha/remove-osapuolet-with-no-document {:type-id 8 :type-specific-data {:osapuoli-specific-data [{:hallinto-oikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "henkilo" + :osapuoli {:id 1 + :type "henkilo"} :document true} {:hallinto-oikeus-id 3 - :osapuoli-id 1 - :osapuoli-type "yritys" + :osapuoli {:id 1 + :type "yritys"} :document true}]}} osapuolet) osapuolet))))) @@ -190,12 +190,12 @@ (t/is (= (asha/remove-osapuolet-with-no-document {:type-id 8 :type-specific-data {:osapuoli-specific-data [{:hallinto-oikeus-id 1 - :osapuoli-id 2 - :osapuoli-type "henkilo" + :osapuoli {:id 2 + :type "henkilo"} :document true} {:hallinto-oikeus-id 3 - :osapuoli-id 3 - :osapuoli-type "yritys" + :osapuoli {:id 3 + :type "yritys"} :document true}]}} [{:id 2 :etunimi "Testi" diff --git a/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data_test.clj b/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data_test.clj index 49dfd08eb..ae47f09a3 100644 --- a/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data_test.clj +++ b/etp-backend/src/test/clj/solita/etp/service/valvonta_kaytto/toimenpide_type_specific_data_test.clj @@ -12,8 +12,8 @@ ts/*db* {:type-id 8 :type-specific-data {:fine 129 - :osapuoli-specific-data [{:osapuoli-id 1 - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id 1 + :type "henkilo"} :hallinto-oikeus-id 0 :document true :recipient-answered true @@ -24,8 +24,8 @@ :department-head-name "Jorma Jormanen" :department-head-title-fi "Hallinto-oikeuden presidentti" :department-head-title-sv "Hallinto-oikeuden kuningas"}} - 1 - "henkilo") + {:id 1 + :type "henkilo"}) {:fine 129 :vastaus-fi "Asianosainen antoi vastineen kuulemiskirjeeseen. Voi anteeksi, en tiennyt." :oikeus-fi "Helsingin hallinto-oikeudelta" @@ -43,7 +43,6 @@ ts/*db* {:type-id 7 :type-specific-data {:fine 800}} - nil nil) {:fine 800}))))) @@ -95,15 +94,15 @@ (t/deftest find-court-id-from-osapuoli-specific-data-test (t/testing "Correct court id is found for the osapuoli" (t/is (= (type-specific-data/find-administrative-court-id-from-osapuoli-specific-data - [{:osapuoli-id 1 - :osapuoli-type "henkilo" + [{:osapuoli {:id 1 + :type "henkilo"} :hallinto-oikeus-id 0} - {:osapuoli-id 3 - :osapuoli-type "henkilo" + {:osapuoli {:id 3 + :type "henkilo"} :hallinto-oikeus-id 5} - {:osapuoli-id 643 - :osapuoli-type "yritys" + {:osapuoli {:id 643 + :type "yritys"} :hallinto-oikeus-id 2}] - 3 - "henkilo") + {:id 3 + :type "henkilo"}) 5)))) diff --git a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_tiedoksianto_haastemies_test.clj b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_tiedoksianto_haastemies_test.clj index b6bc02127..cd85c9b59 100644 --- a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_tiedoksianto_haastemies_test.clj +++ b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_tiedoksianto_haastemies_test.clj @@ -56,14 +56,14 @@ :deadline-date (str (LocalDate/of 2023 7 22)) :template-id 8 :description "Kuvaus" - :type-specific-data {:osapuoli-specific-data [{:osapuoli-id 1 - :osapuoli-type "henkilo" + :type-specific-data {:osapuoli-specific-data [{:osapuoli {:id 1 + :type "henkilo"} :karajaoikeus-id 1 :haastemies-email "haaste@mie.het" :document true} - {:osapuoli-id 2 - :osapuoli-type "yritys" - :document false}]}} + {:osapuoli {:id 2 + :type "yritys"} + :document false}]}} response (ts/handler (-> (mock/request :post (format "/api/private/valvonta/kaytto/%s/toimenpiteet" valvonta-id)) (mock/json-body new-toimenpide) (test-kayttajat/with-virtu-user) @@ -110,12 +110,11 @@ :type-specific-data {:osapuoli-specific-data [{:document true :haastemies-email "haaste@mie.het" :karajaoikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "henkilo" - } - {:document false - :osapuoli-id 2 - :osapuoli-type "yritys"}]} + :osapuoli {:id 1 + :type "henkilo"}} + {:document false + :osapuoli {:id 2 + :type "yritys"}}]} :valvonta-id valvonta-id :yritykset []})))))) @@ -154,8 +153,8 @@ :deadline-date (str (LocalDate/of 2023 7 22)) :template-id 8 :description "Kuvaus" - :type-specific-data {:osapuoli-specific-data [{:osapuoli-id 1 - :osapuoli-type "yritys" + :type-specific-data {:osapuoli-specific-data [{:osapuoli {:id 1 + :type "yritys"} :karajaoikeus-id 1 :haastemies-email "haaste@mie.het" :document true}]}} @@ -190,8 +189,8 @@ :type-specific-data {:osapuoli-specific-data [{:document true :haastemies-email "haaste@mie.het" :karajaoikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "yritys"}]} + :osapuoli {:id 1 + :type "yritys"}}]} :valvonta-id valvonta-id :yritykset [{:toimitustapa-description nil, :toimitustapa-id 0, diff --git a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_varsinainen_paatos_test.clj b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_varsinainen_paatos_test.clj index ae6a028a8..09e925571 100644 --- a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_varsinainen_paatos_test.clj +++ b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/kaskypaatos_varsinainen_paatos_test.clj @@ -100,8 +100,8 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 1 :document true :recipient-answered true @@ -221,8 +221,8 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "yritys" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "yritys"} :hallinto-oikeus-id 2 :document true :recipient-answered false}] @@ -278,8 +278,8 @@ :department-head-name "Jane Doe", :osapuoli-specific-data [{:hallinto-oikeus-id 2 - :osapuoli-id 1 - :osapuoli-type "yritys" + :osapuoli {:id 1 + :type "yritys"} :document true :recipient-answered false}] :department-head-title-sv "Kungen" @@ -402,8 +402,8 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 1 :document true :recipient-answered true @@ -411,9 +411,9 @@ :answer-commentary-sv "Jag visste inte att ett intyg behövs :(" :statement-fi "Tämän kerran annetaan anteeksi, kun hän ei tiennyt." :statement-sv "Han vet inte. Vi förlotar."} - {:osapuoli-id osapuoli-id-2 - :osapuoli-type "henkilo" - :document false}] + {:osapuoli {:id osapuoli-id-2 + :type "henkilo"} + :document false}] :department-head-title-fi "Apulaisjohtaja" :department-head-title-sv "Apulaisjohtaja på svenska" :department-head-name "Yli Päällikkö"}} @@ -452,8 +452,8 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 3 :document true :recipient-answered false}] @@ -490,8 +490,8 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "yritys" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "yritys"} :hallinto-oikeus-id 5 :document true :recipient-answered true @@ -662,11 +662,11 @@ :template-id 6 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id yritysosapuoli-id - :osapuoli-type "yritys" - :document false} - {:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id yritysosapuoli-id + :type "yritys"} + :document false} + {:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 1 :document true :recipient-answered true diff --git a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_kuulemiskirje_test.clj b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_kuulemiskirje_test.clj index 769e11ead..921ba6e33 100644 --- a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_kuulemiskirje_test.clj +++ b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_kuulemiskirje_test.clj @@ -122,8 +122,8 @@ :answer-commentary-sv "Jag visste inte att ett intyg behövs :(" :statement-fi "Tämän kerran annetaan anteeksi, kun hän ei tiennyt." :statement-sv "Han vet inte. Vi förlotar." - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 1 :document true}] :department-head-title-fi "Apulaisjohtaja" diff --git a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_tiedoksianto_haastemies_test.clj b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_tiedoksianto_haastemies_test.clj index 240b9b42d..d2622ecce 100644 --- a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_tiedoksianto_haastemies_test.clj +++ b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_tiedoksianto_haastemies_test.clj @@ -9,8 +9,7 @@ [solita.etp.service.valvonta-kaytto :as valvonta-service] [solita.etp.test-data.kayttaja :as test-kayttajat] [solita.etp.test-system :as ts]) - (:import (java.time Clock LocalDate)) - ) + (:import (java.time Clock LocalDate))) (t/use-fixtures :each ts/fixture) @@ -57,14 +56,14 @@ :deadline-date (str (LocalDate/of 2023 7 22)) :template-id 10 :description "Kuvaus" - :type-specific-data {:osapuoli-specific-data [{:osapuoli-id 1 - :osapuoli-type "henkilo" + :type-specific-data {:osapuoli-specific-data [{:osapuoli {:id 1 + :type "henkilo"} :karajaoikeus-id 1 :haastemies-email "haaste@mie.het" :document true} - {:osapuoli-id 2 - :osapuoli-type "henkilo" - :document false}]}} + {:osapuoli {:id 2 + :type "henkilo"} + :document false}]}} response (ts/handler (-> (mock/request :post (format "/api/private/valvonta/kaytto/%s/toimenpiteet" valvonta-id)) (mock/json-body new-toimenpide) (test-kayttajat/with-virtu-user) @@ -111,11 +110,11 @@ :type-specific-data {:osapuoli-specific-data [{:document true :haastemies-email "haaste@mie.het" :karajaoikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "henkilo"} - {:document false - :osapuoli-id 2 - :osapuoli-type "henkilo"}]} + :osapuoli {:id 1 + :type "henkilo"}} + {:document false + :osapuoli {:id 2 + :type "henkilo"}}]} :valvonta-id valvonta-id :yritykset []})))))) @@ -154,8 +153,8 @@ :deadline-date (str (LocalDate/of 2023 7 22)) :template-id 10 :description "Kuvaus" - :type-specific-data {:osapuoli-specific-data [{:osapuoli-id 1 - :osapuoli-type "yritys" + :type-specific-data {:osapuoli-specific-data [{:osapuoli {:id 1 + :type "yritys"} :karajaoikeus-id 1 :haastemies-email "haaste@mie.het" :document true}]}} @@ -190,8 +189,8 @@ :type-specific-data {:osapuoli-specific-data [{:document true :haastemies-email "haaste@mie.het" :karajaoikeus-id 1 - :osapuoli-id 1 - :osapuoli-type "yritys"}]} + :osapuoli {:id 1 + :type "yritys"}}]} :valvonta-id valvonta-id :yritykset [{:toimitustapa-description nil, :toimitustapa-id 0, diff --git a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_varsinainen_paatos_test.clj b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_varsinainen_paatos_test.clj index 8e60ab850..c43b77bf3 100644 --- a/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_varsinainen_paatos_test.clj +++ b/etp-backend/src/test/clj/solita/etp/valvonta_kaytto/sakkopaatos_varsinainen_paatos_test.clj @@ -98,8 +98,8 @@ :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :diaarinumero "ARA-05.03.01-2023-159" :type_specific_data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 1 :document true :recipient-answered true @@ -139,8 +139,8 @@ :template-id 9 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 8572 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 3 :document true :recipient-answered true @@ -201,8 +201,8 @@ :department-head-name "Yli Päällikkö" :osapuoli-specific-data [{:hallinto-oikeus-id 3 - :osapuoli-id 1 - :osapuoli-type "henkilo" + :osapuoli {:id 1 + :type "henkilo"} :recipient-answered true :document true :statement-sv "Han vet inte. Vi förlotar." @@ -301,8 +301,8 @@ :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :diaarinumero "ARA-05.03.01-2023-159" :type_specific_data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "yritys" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "yritys"} :hallinto-oikeus-id 1 :document true :recipient-answered true @@ -338,8 +338,8 @@ :template-id 9 :description "Tehdään varsinainen päätös, omistaja ei vastannut kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "yritys" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "yritys"} :hallinto-oikeus-id 4 :statement-fi "ARAn päätökseen ei ole haettu muutosta, eli päätös on lainvoimainen. Maksuun tuomittavan uhkasakon määrä on sama kuin mitä se on ollut ARAn päätöksessä. ARAn näkemyksen mukaan uhkasakko tuomitaan maksuun täysimääräisenä, koska Asianosainen ei ole noudattanut päävelvoitetta lainkaan, eikä ole myöskään esittänyt noudattamatta jättämiselle pätevää syytä." :statement-sv "Placeholder" @@ -400,8 +400,8 @@ :department-head-name "Jane Doe", :osapuoli-specific-data [{:hallinto-oikeus-id 4, - :osapuoli-id 1, - :osapuoli-type "yritys", + :osapuoli {:id 1, + :type "yritys"}, :recipient-answered false, :document true, :statement-sv "Placeholder", @@ -440,8 +440,8 @@ :template-id 9 :description "Tehdään varsinainen päätös, omistaja ei vastannut kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "henkilo" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "henkilo"} :hallinto-oikeus-id 3 :document true :recipient-answered false @@ -482,8 +482,8 @@ :template-id 9 :description "Tehdään varsinainen päätös, omistaja vastasi kuulemiskirjeeseen" :type-specific-data {:fine 857 - :osapuoli-specific-data [{:osapuoli-id osapuoli-id - :osapuoli-type "yritys" + :osapuoli-specific-data [{:osapuoli {:id osapuoli-id + :type "yritys"} :hallinto-oikeus-id 5 :document true :recipient-answered true