fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

email charsets

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-14 14:57:45 +02:00
parent 540bb8fe2e
commit c1e6f699e0
5 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/de.msg
View File

@ -326,7 +326,7 @@ MailSubjectSheetActive csh@CourseShorthand sheetName@SheetName: #{sheetName} in
MailSheetActiveIntro courseName@Text termDesc@Text sheetName@SheetName: Sie können nun #{sheetName} im Kurs #{courseName} (#{termDesc}) herunterladen. MailSheetActiveIntro courseName@Text termDesc@Text sheetName@SheetName: Sie können nun #{sheetName} im Kurs #{courseName} (#{termDesc}) herunterladen.
MailSubjectSheetInactive csh@CourseShorthand sheetName@SheetName: #{sheetName} in #{csh} kann nur noch kurze Zeit abgegeben werden MailSubjectSheetInactive csh@CourseShorthand sheetName@SheetName: #{sheetName} in #{csh} kann nur noch kurze Zeit abgegeben werden
MailSheetInactiveIntro courseName@Text termDesc@Text sheetName@SheetName: Sie können #{sheetName} im Kurs #{courseName} (#{termDesc}) nur noch kurze Zeit abgeben. MailSheetInactiveIntro courseName@Text termDesc@Text sheetName@SheetName: Dia Abgabefirst für #{sheetName} im Kurs #{courseName} (#{termDesc}) endet in Kürze.
SheetTypeBonus: Bonus SheetTypeBonus: Bonus
SheetTypeNormal: Normal SheetTypeNormal: Normal

6
src/Mail.hs
View File

@ -303,7 +303,7 @@ instance YesodMail site => ToMailPart site (StateT Part (HandlerT site IO) a) wh
instance YesodMail site => ToMailPart site LT.Text where instance YesodMail site => ToMailPart site LT.Text where
toMailPart text = do toMailPart text = do
_partType .= "text/plain" _partType .= "text/plain; charset=utf-8"
_partEncoding .= QuotedPrintableText _partEncoding .= QuotedPrintableText
_partContent .= encodeUtf8 text _partContent .= encodeUtf8 text
@ -315,7 +315,7 @@ instance YesodMail site => ToMailPart site LTB.Builder where
instance YesodMail site => ToMailPart site Html where instance YesodMail site => ToMailPart site Html where
toMailPart html = do toMailPart html = do
_partType .= "text/html" _partType .= "text/html; charset=utf-8"
_partEncoding .= QuotedPrintableText _partEncoding .= QuotedPrintableText
_partContent .= renderMarkup html _partContent .= renderMarkup html
@ -339,7 +339,7 @@ instance ToMailPart site a => ToMailPart site (Shakespeare.RenderUrl (Route site
instance YesodMail site => ToMailPart site Aeson.Value where instance YesodMail site => ToMailPart site Aeson.Value where
toMailPart val = do toMailPart val = do
_partType .= "application/json" _partType .= "application/json; charset=utf-8"
_partEncoding .= QuotedPrintableText _partEncoding .= QuotedPrintableText
_partContent .= Aeson.encodePretty val _partContent .= Aeson.encodePretty val

3
templates/mail/sheetActive.hamlet
View File

@ -1,5 +1,8 @@
$newline never
\<!doctype html>
<html> <html>
<head> <head>
<meta charset="UTF-8">
<style> <style>
h1 { h1 {
font-size: 1.25em; font-size: 1.25em;

3
templates/mail/sheetInactive.hamlet
View File

@ -1,5 +1,8 @@
$newline never
\<!doctype html>
<html> <html>
<head> <head>
<meta charset="UTF-8">
<style> <style>
h1 { h1 {
font-size: 1.25em; font-size: 1.25em;

3
templates/mail/submissionRated.hamlet
View File

@ -1,5 +1,8 @@
$newline never
\<!doctype html>
<html> <html>
<head> <head>
<meta charset="UTF-8">
<style> <style>
h1 { h1 {
font-size: 1.25em; font-size: 1.25em;