EH-1698: add logging for more transparency in kestojen uudelleenlaskenta

src/oph/heratepalvelu/tep/kestojenUudelleenlaskentaHandler.clj

@@ -33,15 +33,20 @@
   [_ event ^com.amazonaws.services.lambda.runtime.Context context]
   (log-caller-details-scheduled "handleKestojenUudelleenlaskenta" event context)
   (loop [resp (scan-for-jaksot-with-kesto! nil)]
+    (log/info "Processing" (count jaksot) "jaksoa.")
     (let [jaksot (:items resp)
           kestot (nh/jaksojen-kestot! jaksot)]
+      (log/info "Got" (count kestot) "durations for jaksot:"
+                (clojure.string/join ", " (take 3 (keys kestot))) ", ...")
       (doseq [jakso jaksot]
-        (if-let [new-kesto (get kestot (nh/ids jakso))]
-          (tc/update-jakso jakso
-                           {:kesto       [:n new-kesto]
-                            :kesto_vanha [:n (:kesto jakso)]})
-          (log/warn "Couldn't calculate kesto for jakso with ids "
-                    (nh/ids jakso)))))
+        (if-let [jakso-key (nh/ids jakso)
+                 new-kesto (get kestot jakso-key)]
+          (do
+            (log/info "Updating jakso" jakso-key "with kesto" new-kesto)
+            (tc/update-jakso jakso
+                             {:kesto       [:n new-kesto]
+                              :kesto_vanha [:n (:kesto jakso)]}))
+          (log/warn "Couldn't calculate kesto for jakso with ids" jakso-key))))
     (when (and (< 30000 (.getRemainingTimeInMillis context))
                (:last-evaluated-key resp))
       (recur (scan-for-jaksot-with-kesto! (:last-evaluated-key resp))))))