fix test email send route in route (#473)

* fix test email send route in route * Update pool/app/email/email_service.ml --------- Co-authored-by: Marc <[email protected]>
uzh · Dec 16, 2024 · 0f6cd64 · 0f6cd64
1 parent f5d65a1
commit 0f6cd64
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/pool/app/email/email_service.ml b/pool/app/email/email_service.ml
@@ -257,7 +257,10 @@ module Smtp = struct
     let%lwt default_sender_of_pool = default_sender_of_pool database_label in
     let%lwt test_email =
       let%lwt sender =
-        Settings.(find_contact_email database_label |> Lwt.map ContactEmail.value)
+        match Database.Pool.is_root database_label with
+        | true -> default_sender_of_pool |> Pool_user.EmailAddress.value |> Lwt.return
+        | false ->
+          Settings.(find_contact_email database_label |> Lwt.map ContactEmail.value)
       in
       let recipient = test_email |> Pool_user.EmailAddress.value in
       let subject = "Test email" in