diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index c33f7e7ad..66f792294 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -110,7 +110,7 @@ mprToMetaUser :: (MonadHandler m, HandlerSite m ~ UniWorX) => Entity User -> Met mprToMetaUser entUser@Entity{entityVal = u} mpr = do let userLang = userLanguages u >>= (listToMaybe . view _Wrapped) -- auch möglich `op Languages` statt `view _Wrapped` meta = mprToMeta mpr{ mppRecipient = userDisplayName u - -- , mppAddress = --TODO once we have User addresses within the DB + -- , mppAddress = userDisplayName u : html2textlines userAddress --TODO once we have User addresses within the DB , mppLang = fromMaybe (mppLang mpr) userLang -- check if this is the desired behaviour! } userDate <- formatTimeUser SelFormatDate (mppDate mpr) (Just entUser) diff --git a/templates/letter/din5008.latex b/templates/letter/din5008.latex index 2d7ecb0f4..ac99fcb35 100644 --- a/templates/letter/din5008.latex +++ b/templates/letter/din5008.latex @@ -133,7 +133,7 @@ $endif$ \opening{$en-opening$} $endif$ - \begin{textblock}{65}(88,234)%hpos,vpos + \begin{textblock}{65}(84,232)%hpos,vpos \textcolor{black!33}{ \begin{labeling}{Login:x} \item[Login:] $login$