EH-1412 & EH-1414: Työpaikkajakson keston laskentatavan muutokset (#240)

- Refaktoroitu kestonlaskentafunktiot luettavampaan muotoon ja lisätty dokumentaatiota.
- Kestonlaskennassa huomiodaan kaikki viikonpäivät (aiemmin vain arkipäivät).
- Osa-aikaisuus otetaan laskennassa huomioon. Osa-aikaisuustiedon ollessa pakollinen 1.7. alkaen, ei-validi osa-aikaisuustieto (jokin muu kuin kokonaisluku väliltä 1-100) tai tiedon puuttuminen tulkitaan osa-aikaisuudeksi nolla.

src/oph/heratepalvelu/amis/AMISherateEmailHandler.clj

@@ -71,8 +71,8 @@
   (if (:kyselylinkki herate)
     herate
     (let [oo-oid (:opiskeluoikeus-oid herate)
-          opiskeluoikeus (or (k/get-opiskeluoikeus-catch-404 oo-oid)
-                             (k/get-opiskeluoikeus-catch-404 oo-oid))]
+          opiskeluoikeus (or (k/get-opiskeluoikeus-catch-404! oo-oid)
+                             (k/get-opiskeluoikeus-catch-404! oo-oid))]
       (cond
         (not opiskeluoikeus)
         (do

src/oph/heratepalvelu/amis/AMISherateHandler.clj

@@ -6,7 +6,7 @@
             [oph.heratepalvelu.common :refer :all]
             [oph.heratepalvelu.external.koski
              :refer
-             [get-opiskeluoikeus-catch-404]]
+             [get-opiskeluoikeus-catch-404!]]
             [oph.heratepalvelu.log.caller-log :refer :all])
   (:import (com.amazonaws.services.lambda.runtime.events SQSEvent$SQSMessage)
            (com.fasterxml.jackson.core JsonParseException)
@@ -23,7 +23,7 @@
   [^SQSEvent$SQSMessage msg]
   (try
     (let [herate (parse-string (.getBody msg) true)
-          opiskeluoikeus (get-opiskeluoikeus-catch-404
+          opiskeluoikeus (get-opiskeluoikeus-catch-404!
                            (:opiskeluoikeus-oid herate))
           koulutustoimija (and opiskeluoikeus
                                (get-koulutustoimija-oid opiskeluoikeus))

src/oph/heratepalvelu/external/arvo.clj

@@ -91,7 +91,7 @@
       (if (> (count oids) 1)
         (log/warn "Enemmän kuin yksi linkitetty opiskeluoikeus! HOKS-id:"
                   ehoks-id)
-        (let [opiskeluoikeus (koski/get-opiskeluoikeus-catch-404 (first oids))
+        (let [opiskeluoikeus (koski/get-opiskeluoikeus-catch-404! (first oids))
               toteuttaja-oid
               (get-in
                 opiskeluoikeus

src/oph/heratepalvelu/external/ehoks.clj

@@ -102,7 +102,7 @@
                              :end end
                              :limit limit}}))
 
-(defn get-tyoelamajaksot-active-between
+(defn get-tyoelamajaksot-active-between!
   "Pyytää eHOKS-palvelusta työelämäjaksot, jotka ovat tai olivat voimassa tietyn
   aikavälin sisällä ja jotka kuuluvat tietylle oppijalle."
   [oppija start end]

src/oph/heratepalvelu/external/koski.clj

@@ -21,7 +21,7 @@
   [oid]
   (:body (koski-get (str "/opiskeluoikeus/" oid) {:as :json})))
 
-(defn get-opiskeluoikeus-catch-404
+(defn get-opiskeluoikeus-catch-404!
   "Hakee opiskeluoikeuden OID:n perusteella, ja palauttaa nil, jos ilmenee
   404-virhe."
   [oid]

src/oph/heratepalvelu/tep/jaksoHandler.clj

@@ -280,7 +280,7 @@
       (try
         (let [herate (parse-string (.getBody msg) true)
               oo (:opiskeluoikeus-oid herate)
-              opiskeluoikeus (koski/get-opiskeluoikeus-catch-404 oo)]
+              opiskeluoikeus (koski/get-opiskeluoikeus-catch-404! oo)]
           (if (nil? opiskeluoikeus)
             (log/warn "Ei löytynyt opiskeluoikeutta:" oo)
             (let [koulutustoimija (c/get-koulutustoimija-oid opiskeluoikeus)