Merge branch 'develop' into dependabot/maven/tietokanta/org.postgresq…

…l-postgresql-42.7.5
finnishtransportagency · Jan 20, 2025 · b8c2bf5 · b8c2bf5
2 parents 701faf8 + a61e7ba
commit b8c2bf5
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 4 deletions.
diff --git a/src/clj/harja/palvelin/palvelut/valitavoitteet/urakkakohtaiset_valitavoitteet.clj b/src/clj/harja/palvelin/palvelut/valitavoitteet/urakkakohtaiset_valitavoitteet.clj
@@ -25,14 +25,13 @@
 
 (defn- merkitse-valitavoite-valmiiksi! [db user urakka-id
                                         {:keys [nimi id valmispvm valmis-kommentti] :as tiedot}]
-  (when valmispvm
     (log/debug "Merkitään välitavoite valmiiksi: " nimi)
     (q/merkitse-valmiiksi! db
                            (when valmispvm
                              (konv/sql-date valmispvm))
                            (when valmispvm
                              valmis-kommentti)
-                           (:id user) urakka-id id)))
+                           (:id user) urakka-id id))
 
 (defn- luo-uudet-urakan-valitavoitteet [db user valitavoitteet urakka-id]
   (doseq [{:keys [aloituspvm takaraja nimi yllapitokohde-id] :as valitavoite} (filter

diff --git a/src/cljs/harja/ui/yleiset.cljs b/src/cljs/harja/ui/yleiset.cljs
@@ -879,7 +879,9 @@ jatkon."
                                 [:div.inline-block
                                  {:class wrapper-luokka
                                   :on-mouse-enter #(reset! tooltip-visible?-atom true)
-                                  :on-mouse-leave #(reset! tooltip-visible?-atom false)}
+                                  :on-mouse-leave #(reset! tooltip-visible?-atom false)
+                                  :on-focus #(reset! tooltip-visible?-atom true)
+                                  :on-blur #(reset! tooltip-visible?-atom false)}
                                  komponentti
                                  [tooltip-sisalto opts @tooltip-visible?-atom sisalto]])
     komponentti))

diff --git a/test/clj/harja/palvelin/palvelut/valitavoitteet_test.clj b/test/clj/harja/palvelin/palvelut/valitavoitteet_test.clj
@@ -97,7 +97,7 @@
       (is (= (:valmis-kommentti vt2) "valmis tämäkin!"))
 
       ;; VT3 tallentui oikein
-      (is (nil? (:valmis-merkitsija vt3)))
+      (is (some? (:valmis-merkitsija vt3)))
       (is (nil? (:valmispvm vt3)))
       (is (nil? (:valtakunnallinen-id vt3)))
       (is (= (:urakka-id vt3) urakka-id))
@@ -333,3 +333,23 @@
 
         (u (str "DELETE FROM valitavoite WHERE valtakunnallinen_valitavoite IS NOT NULL"))
         (u (str "DELETE FROM valitavoite WHERE urakka IS NULL"))))))
+
+(deftest valtakunnallisten-valitavoitteiden-valmispvm-voi-poistaa
+    (let [muhoksen-urakan-vanhat-valitavoitteet (kutsu-palvelua (:http-palvelin jarjestelma)
+                                                  :hae-urakan-valitavoitteet +kayttaja-jvh+
+                                                  (hae-urakan-id-nimella "Muhoksen päällystysurakka"))
+          rivi (first (filter #(= "Se iso kivi siirretty pois tieltä" (:nimi %)) muhoksen-urakan-vanhat-valitavoitteet))
+          urakka-id (ffirst (q (str "SELECT id
+                   FROM   urakka
+                   WHERE  nimi = 'Muhoksen päällystysurakka'")))
+
+          vastaus (kutsu-palvelua
+                    (:http-palvelin jarjestelma)
+                    :tallenna-urakan-valitavoitteet
+                    +kayttaja-jvh+
+                    {:urakka-id      urakka-id
+                     :valitavoitteet [(assoc rivi :valmispvm nil)]})
+          muhoksen-urakan-paivitetyt-valitavoitteet (kutsu-palvelua (:http-palvelin jarjestelma)
+                                                      :hae-urakan-valitavoitteet +kayttaja-jvh+
+                                                      (hae-urakan-id-nimella "Muhoksen päällystysurakka"))]
+      (is (nil? (:valmispvm (first (filter #(= "Se iso kivi siirretty pois tieltä" (:nimi %)) muhoksen-urakan-paivitetyt-valitavoitteet)))))))