fix(mail): fix various minor email attachment problems

messages/uniworx/categories/send/send_notifications/de-de-formal.msg

@@ -98,6 +98,6 @@ MailEditNotifications: Benachrichtigungen ein-/ausschalten
 MailSupervisorNote: Hinweis für Ansprechpartner
 MailSupervisorBody undername@Text supername@Text: Sie erhalten diese Nachricht, da #{supername} als Ansprechpartner für #{undername} eingetragen ist in
 MailSupervisorCopy undermail@Text: Diese Nachricht ist eine Kopie einer Nachricht, welche an #{undermail} gesendet wurde.
-MailSupervisorNoCopy: Warnung: Diese Nachricht wurde nicht an den eingentlichen Empfänger versandt! Für die Weiterleitung sind alle für diesen Empfänger in FRADrive eingetragenen Ansprechpartner verantwortlich!
+MailSupervisorNoCopy: Warnung: Diese Nachricht wurde nicht an den eigentlichen Empfänger versandt! Für die Weiterleitung sind alle für diesen Empfänger in FRADrive eingetragenen Ansprechpartner verantwortlich!
 MailSupervisedNote: Hinweis
 MailSupervisedBody: Eine Kopie dieser Nachricht wurde auch an folgende in FRADrive eingetragene Ansprechpartner gesendet:

src/Handler/Admin/Avs.hs

@@ -305,7 +305,7 @@ data LicenceTableActionData =  LicenceTableChangeAvsData
 postProblemAvsSynchR,  getProblemAvsSynchR :: Handler Html
 postProblemAvsSynchR = getProblemAvsSynchR
 getProblemAvsSynchR = do  
-  _now <- liftIO getCurrentTime
+  now <- liftIO getCurrentTime
   let _nowaday = utctDay now
 
   -- TODO: just for Testing  

src/Handler/Utils/Mail.hs

@@ -61,6 +61,7 @@ userMailT uid mAct = do
   let undername = underling ^. _userDisplayName -- nameHtml' underling
       undermail = CI.original $ underling ^. _userEmail
       infoSupervised :: Hamlet.HtmlUrlI18n UniWorXSendMessage (Route UniWorX) = [ihamlet|
+            <meta charset="utf-8">
             <h2>_{MsgMailSupervisedNote}
             <p>
               _{MsgMailSupervisedBody}
@@ -88,12 +89,13 @@ userMailT uid mAct = do
                 }
         supername = supervisor ^. _userDisplayName -- nameHtml' supervisor
         infoSupervisor :: Hamlet.HtmlUrlI18n UniWorXSendMessage (Route UniWorX) = [ihamlet|
+            <meta charset="utf-8">
             <h2>_{MsgMailSupervisorNote}
             <p>
               _{MsgMailSupervisorBody undername supername} #
               <a href=@{NewsR}>
                 FRADrive
-              .
+              . #
               $if undercopy
                 _{MsgMailSupervisorCopy undermail}
               $else
@@ -105,7 +107,7 @@ userMailT uid mAct = do
       if uid==svr
         then when (2 <= length receivers) $ addHtmlMarkdownAlternatives' "InfoSupervised" infoSupervised -- notify about supervisors
         else do
-          mapSubject ("[SUPERVISOR]" <>)
+          mapSubject ("[SUPERVISOR] " <>)
           addHtmlMarkdownAlternatives' "InfoSupervisor" infoSupervisor -- adding explanation why the supervisor received this email
 
 
@@ -188,6 +190,7 @@ addHtmlMarkdownAlternatives html' = do
   where
     writerOptions = markdownWriterOptions
       { P.writerReferenceLinks = True
+      , P.writerPreferAscii    = True
       }
 
 -- | Like @addHtmlMarkdownAlternatives, but adds subseqeunt parts with "content-disposition: inline" and the provided filename, if inline display is not permitted (receiver's choice)
@@ -205,4 +208,5 @@ addHtmlMarkdownAlternatives' fn html' = do
   where
     writerOptions = markdownWriterOptions
       { P.writerReferenceLinks = True
+      , P.writerPreferAscii    = True
       }

src/Utils/Print.hs

@@ -472,7 +472,7 @@ sendEmailOrLetter recipient letter = do
           editNotifications <- mkEditNotifications svr
           let supername = rcvrUsr ^. _userDisplayName -- nameHtml' rcvrUsr
           addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/genericMailLetter.hamlet")
-          addPart (File { fileTitle     = T.unpack $ pjiName pjid
+          addPart (File { fileTitle     = T.unpack $ pjiName pjid <> ".pdf"
                         , fileModified  = now
                         , fileContent   = Just $ yield $ LBS.toStrict attachment
                         } :: PureFile)

templates/mail/genericMailLetter.hamlet

@@ -19,7 +19,7 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
       _{mailSubject}
 
     <p>
-      _{mailBody}      
+      _{mailBody}
 
     $if isSupervised
       <h2>_{SomeMessage MsgMailSupervisorNote}
@@ -27,12 +27,12 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
         _{SomeMessage (MsgMailSupervisorBody undername supername)} #
         <a href=@{NewsR}>
           FRADrive
-        .
+        . #
         $if undercopy
           _{SomeMessage (MsgMailSupervisorCopy undermail)}
         $else
           _{SomeMessage MsgMailSupervisorNoCopy}
-    $else 
+    $else
       <h2>_{SomeMessage MsgMailSupervisedNote}
       <p>
         _{SomeMessage MsgMailSupervisedBody}
@@ -40,5 +40,5 @@ $# SPDX-License-Identifier: AGPL-3.0-or-later
           $forall svr <- receivers
             <li>
               #{nameHtml' svr}
-        
+
     ^{ihamletSomeMessage editNotifications}