move title to infobox if enabled

diff --git a/kiviletter.sty b/kiviletter.sty
index 6997095..512beff 100644 (file)
--- a/kiviletter.sty
+++ b/kiviletter.sty
@@ -99,11 +99,12 @@ contents={\usebox\shippingAddressBox}
 \ExplSyntaxOff
 
 \if@kivi@infobox
+\newkomavar{locationtitle}
 \setkomavar{location}{
        \begin{flushright}
                \bfseries
                \LARGE
-               \usekomavar{title}
+               \usekomavar{locationtitle}
        \end{flushright}
 
        \medskip
@@ -116,9 +117,19 @@ contents={\usebox\shippingAddressBox}
        \end{tabularx}
 }
 \removereffields
+
+\ExplSyntaxOn
+\AtBeginLetter{
+       \ifkomavarempty{title}{}{
+               \exp_args:Nno\setkomavar{locationtitle}{\scr@title@var}
+               \setkomavar{title}{}
+       }
+}
+\ExplSyntaxOff
 \fi
 
 
+
 \renewcommand*{\raggedsignature}{\raggedright}
 
 \endinput