Fix based on PR comment

Opetushallitus · Sep 18, 2024 · c0fe972 · c0fe972
1 parent ec4b7c0
commit c0fe972
Showing 1 changed file with 13 additions and 6 deletions.
diff --git a/src/oph/heratepalvelu/tep/kestojenUudelleenlaskentaHandler.clj b/src/oph/heratepalvelu/tep/kestojenUudelleenlaskentaHandler.clj
@@ -2,6 +2,7 @@
   "Handler työpaikkajaksojen kestojen uudelleenlaskentaa varten."
   (:require [clojure.tools.logging :as log]
             [environ.core :refer [env]]
+            [medley.core :refer [find-first]]
             [oph.heratepalvelu.db.dynamodb :as ddb]
             [oph.heratepalvelu.log.caller-log :refer
              [log-caller-details-scheduled]]
@@ -37,12 +38,18 @@
       (log/info "Processing" (count jaksot) "jaksoa.")
       (doseq [jakso jaksot]
         (let [concurrent-jaksot (nh/get-concurrent-jaksot-from-ehoks! [jakso])
-              opiskeluoikeudet  (nh/get-and-memoize-opiskeluoikeudet!
-                                  concurrent-jaksot)
-              kestot            (nh/oppijan-jaksojen-kestot
-                                  concurrent-jaksot opiskeluoikeudet)
-              jakso-key         (nh/ids jakso)]
-          (if-let [new-kesto (get kestot jakso-key 0)]
+              jakso-key         (nh/ids jakso)
+              new-kesto
+              (if (find-first #(= (:hankkimistapa_id %)
+                                  (:hankkimistapa_id jakso))
+                              concurrent-jaksot)
+                  (get (nh/oppijan-jaksojen-kestot
+                         concurrent-jaksot
+                         (nh/get-and-memoize-opiskeluoikeudet!
+                           concurrent-jaksot))
+                       jakso-key)
+                  0)]
+          (if (some? new-kesto)
             (do
               (log/info "Updating jakso" jakso-key "with kesto" new-kesto)
               (tc/update-jakso jakso